حمن الرحيم 


کار / من طرفي قمت بتجميعها في كتاب واحد 


هدي هذا العمل الى الواالدين یمین وأسال 
وعلينا أجمعين 


0 جموعة من‎ Ê 


وهي عبارة عن مجموعة من المحا 


زز ی أن يتقبله كصدقة جارية عليهما 


ناس عين الحجل 


ناس المعاصضد 
بوغرارة الصديق / /بکري زهیر/. 


إهداء خاص إلى ذات الرداء الأحمر 
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5 
تحية برمجية وبعد : 
أقدم لكم أول همساتي البرمجية في دلفي 


التطور الذي شهده جانب المعلوماتية و الإعلام الآلي في جميع الجوانب خاصة منها في 
يثة حيث عندما كانت البرمجة في البداية تعتمد على لغات برمجة بدائية 


© 
Pascal °‏ 
Fortran *‏ 
Clipper e‏ 
Dbase3+,‏ 
الخ من اللغات العتبقة کی 
على تعتمد أساشا على اللعات القدب 
التي ظهرت من 


سية في معطياتها وأوامرها وان غالب اللغات الحديثة 0 
بنية و المعطيات و كيفية التعامل مع المسائل 

اتعبير ثم إن اللغة المصدر باسكال مازالت على 
لأهميتها في التوافق مع بنية برنامج 


حيث سنهتم ڊ بكيفية إنشاء ونح بصدد تقديم : 
يد كيفية التعامل مع مرکبات دلفي اواسشتغلالها في إنتاج برامج ه 
... (الميادين 
- إن هذه المعطيات موجهة مل لهم خبرة ولو 


)وإنتاج عدة تطبيقات عموما 


٥‏ دلفي 
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4° Delphı BS - Project] 


| Fichier Editar Lherzher Woalr Prajet Esêcuter Lompazant Baze de donnêes Uultills Ãlde tum =| | - 
| O Ë - | کے کے | ج چ‎ standard | Supplêrnert | win32 | Sustërme | AccèsED | CortrêleED | AGO | InterEase | Midas | Ime dl* 
loam MGS HE f Am Sw KF e E #m1 Î | | 


Inspecteur doabjêls ٠ اة‎ 


[Form1: TFoarrnl 1 


Propriêtês | E vênements | 


2zl 


ûAcztlweLontral 


all ame‏ ااك 


Hêûnehars [akLeft.akT op] 


E‏ ااد اع دارگ 


False‏ عا اٹ 


BiIDiIMade bdLeftT aRight 


Borderlcsons |[biSystemMenu, 


Borders pla bsSIzeable 


e E 
Laptian 
L_liaentHeaigkt 


1738 f BN 


» 


)8 
ې 


This document was created using 
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GH Unıtl paz 
سے‎ 
اذ‎ Leuk] Î 
TFoar rn Î 
Il Yariables*Conzstante: unlit Unitl?; خت‎ 


fl llses 


LnLeErT[TCaCe 


USES 
MinaAoGoIra, HeszszaqeEes, SFSUCILILIS3, LIass3EeE3, GFCaphir 


Type 
TForml = CLassIl TForml 
pPHrFiIate 
FF Déczlsarataıcons prairies 1 
publ lic 
f Dêczlaraticons publigues } 
ETL 7 
Tar 


Formil: 'TFormlz 


Tp LemeEeTLT al 1OnNn 


TT TTI "i E E‏ کت n ٣‏ 3 اه 
رر Fo IM odıfiëê liser tion‏ 


NA 


- ]مفتش الكائنات :وهو برنامج فرعي في دلفي يحوي جميع الخصائصالمتعلقة بكل مركبة 


حيث أن هذه الخصائص تختلف من مركبة أخرى من ناحية المنهج أى(الحدث ..... ک4 


-2 :وهي مجال المركبات و إن صح التعبير الجانب الوحيد من دلفي الذي يظهر عندما يذ 


« * 


تنفيذ تطبيق ما من نوع تiفıذ.)b]eۆexecuta (fishier‏ 
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o 5‏ 
-3شريط قوائم المركبات :وهو يشبه في بنيته ,البنية العامة للقوائم في أي برنامج ويحتوي على المركبات 
المتوفرة في دلفي ويتم ترتيبها بالمجموعة حسب الدور والمهمة المشتركة , 


لتسهيل الدلالة عليها( بعض المركبات التي لا تظهر أثناء التنفيذ وذرمز لها متلا بالرمز 
في الجدول التالي د Cy‏ ف لبعض المركبات 
.يخس حال إعطاء مف البعطر المركبات التي سوف نقوم بإجراء التطبيقات القادمة عليه 


لحجز لصوا وع 
LL E 1‏ 
E O ET E mw‏ 


يحتوی على أي 
غییر ها حب طبر تلعز 


Button2 
يحتوى على أيقونة للدلالة يكوان ہ٥)٤)ںط)(له نفس‎ Speed button El 
تغييرها حسب طبيعة عمل الزن بالإضافة‎ 


beanie‏ عرض اريخ و اوقت 
تھ نا ت 
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بعض المركبات الخاصة بقواعد المعطيات ؛ 


gaa 
ا اطا للتعامل مع کواع بيات‎ 


SQL 
لعرض بيانات قاعدة معطيات ما على شکل جدول‎ Dbgrid 


لإجراء عمليات التحيين على قاعدة معطيات 
بتغيير.__ ) 


ض قيم حقول قاعدة بيانات ما 
ب ا 


:ويقصد به تنفيذ أمر ها عند كالة ما 
اليك الصيغة التالية :عندما يحدث 
E‏ . 


e ow - form1.color:=clred; 1-‏ 
:هنا يقصد بهذا الحدث :عند ظهور 7 


*الجدول التالي يحتوي على بعض الأحداث الكثيرا 5 الاستخدام في ê 0v.‏ 


عند الظهور 
عندا يتحرك مؤشر الفارة 


on enter 


: : : To remove this message, purchase the 
SOLID CONVERTER PDF > nebe 


.وهو برنامج فرعي صغير يحتوي على مجموعة من 
انما تنتهي ب : إلا في بعض الحالات نذكر منها : 


(whil 
0 


في نهاية الأمر لاط باش الشرطية بع .(عءام .”عط ) ... 


XX 
a O: 


تاریخ 


دوال التحويل في دلفي : 0 
باختلاف المتغيرات و المعطيات في دلفي نلجاأعادقفى العمليات الحسابية بعط التحويلات بين 
المعطيات قصد تحقيق تنسيق بين مختلف المعطياك ,دفي یمج لنا دوا لنویل يق ا 


a a 
_ ا0ا |للتحويل من صحيح __سلسلة حرفية باج‎ 
للتحويل من سلسلة حرفية_ عددصحيج لا وتي اا‎ Sti 
N 0ا۴ للتحويل من عدد حقيقي_ _ سلسلة حرفية‎ _ 

trt1‏ | للتحويل من سلسلة حرفية 


مصiا0اا)S‏ | للتحويل من سلسلة حرفية 


Datetostr 
Strtodate 
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كيفية التصريح بالمتغيرات فى دلفى : N‏ 
عندما نريد القيام بإنشاء عمليات”حسابية ما لابد مر و أتحفيق الحسابات بصورة 


سواء في إجراء معين أو البرنامجرككل AR‏ ویون د ا f‏ 


2S 

{Tq MêczrJlarzataio0ons priréêzas 1 
pPubh Li: 

{ MêczJarFzatai0orns publicguzsas 1] 
ETH F7 


AF aAaF 
۵ ForFrrnl: 'TFOFIn1l F7 


LHLEHEEFE 27 


:TEZA 1] 7 

: STEIN?” 

:bHonao lean 
s:AarFay[ l1l. . 33] OF IinLeHEeE 7; 
: TAaATET IME F 


xp lM TF 


الجدول التالي يوضح كيفية التصريح بالمتغيرات السابقة 
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A: integer :‏ التصريح بمتغير من نوع حقيقي 


/ التصريح بمتغير من نوع صحيح 


Olean; 
کي ل‎ 
a gl o integers 


آلية تشكيل البرنامج 


edit. text 3‏ من شریط 
label 3‏ من شرıط_„ standard‏ 


button‏ من شjَڍ3ط standard,‏ 0د 
قم بتغيير محتوى )×ع).d1)1ءبالقيمة‏ 0 _ ex)‏ الكائنات كما هو 


Sho Hirit e 


TabUrder 11 


Tab5tap E 


- قم بتغيير محتوى المركبة 1 1ءطهإفي مفتش الكائنات بواسطة الخاصية ,)مجع العبارة التالية 
:كما هو موضح في الصورة: 


|e Tre‏ 5اا 


Bii ode bdLeftT oRight 
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کرر نفس بالنسبة للمركبتين الباقيتي مع مراعاة الرتيب التالي: 
’lلقيمۂLabel1.caption¬:=’1‏ 


Label1.captio¬:=”2ٌۂميقلl’‎ 


چ ’lلنتيجۂ’=:¬Label1.caption‏ 
8- بير دلالة 2@ 


caماا0د "من الخاصية‎ " 1 - button1 


caماإ0ہ "من الخاصية‎ 1 2 -=button2 
۴ 3 كما هوإموضح دي الصورة‎ 


إحمت Laption‏ 
HLonstralnts _[TSizeLonstraln‏ 
LMraor crUefault 0‏ 
- نصل في هذه الحالة ® 
* بما أننا نريد إنشاء برنامج يقوم بجمع عد 9 3متغيرات من نوع حقيقي 


A,B ,C:REAL; 

=:۸يحوي القيمة 1 

=:8يحوي القيمة 2 

۸+8=: )يحوي مجموع القيمتين 
Edit1.text :‏ 


Vv Edit2.text : 
N قيمة ”٥€“ط+وهيحتوي على المنجموع‎ ضرعلi3.texا‎ : 


دوال التحويل ثم أننا O‏ 
ِ دالة التحويل من نمط حرفي نمط صحيح و العكس أي الدالتين لان نوع قيم NE.‏ 
تحويل قيمتها عند محيح و العكس بالنسية المتقيات الب باقيه 
Strtofloat *floattostr‏ 
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5 
ر ttn‏ ذات التسمية اجمع 
كما هو موضح في الشكل 


Tar 
a,b,C:rFEaAl?; 


hegin 
a:=sLtLrLofloat [eAiLlLl.TtEXT] ?; 
bh:=strtofloat [eEAitd . text] ?; 
C:=ath; 
EAIL3I.TtEXL:=floattostr [IC] ?; 
end; 


هكذا نكون قد انهينا برنامج الجمع /ولم يبق لنا 
button2‏ 


لخلايا بعد عملية الجمع ولانجاز ذلك 
التالية كما هو 
موضح في الشكل التالية: 
begin 5‏ 
eEAiTl.tExXLTL:=IUD';‏ 


EAILKEZE.TCENLC:=!' J" 27 
EAILE3.TCERNLC:= J" 7 


ثم نقوم بتنفيذ البرنامج وذلك بالنقر على ١‏ لمثلث 
5 9 
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Sa, N sas 


حاول تطوير البرنامج للقيام بمجميعالعمليات ١‏ 


اتی د 2 


إنشاء تطبيق ساعة في دلفي سنقومفئ هذا الإجراء بكتابة 


A label 
button 


uttonثم‏ نقوم بتغيير تلميح المركبة Qإدل,ه)ونقوم‏ باحضار المزكبتين من شريط e‏ 


caption button 
hejin 
LABELI1.TLAPTISN:=TINETOSTEITIME] ; 
end; 
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4ل 


,سنقوم بحل هذا (المشكل و ذلك بتعويض > rr‏ 
آلية التنفيذ 


system 
ا حيث نكتب نفس الأمر_السابق في المر د نتر علیھا مرتین وعند التنفيذ سنلاحظ‎ 


التطبيق الثالث :كيفية إنشاء رسائل التلميح 3 
يمكن لدلفي التعامل مع رسائل التنبيه بتتى ع الحألات 

انشاء سالة ترحيب تحتوي على النص التائ إمق× bi‏ 0uها:‏ 

س ےا ل 


heqgin 


ahoumeszage | ' laoubþbi ade l' ; £; 


عند التنفبد 
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ي ا د 2 الخطوات التالية ؛ 


٥١٣٠ص2 فتلاحظ مباشرة أنه تم إنشاء نافذة جديدة‎ e e fiche 


وتتبع نفس الطريقة إذا أردنا إنشا فذ أخرى 
كيفية مناداة نافذة 
سنقوم في هذه الحالة بإنشاء تطبيق د 
ننفذ برنامج دلفي و بمجرداتنفيذه نجد أن النافد 
نقوم بإنشاء النافذتين المتبقيتيڻ كما سبق وان 
ok‏ ونضنفھا على ۱ 
نغير دلالة الأزرار الثلاثة بالتسميات التالية على التوالي.: 
وذلك بواسطة الخاصية «0ااظهء 


14 
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2اظهر النافذة ارقم For m2.sh0w;‏ | 


3ظهر النافذة رقم Form3.show;‏ ` الزر البطاقة الثانية 
إغلاق التطبيق ™عءC°16‏ » 


٠ La fiche Forml' rêfêrerce la fiche ‘formê’, dêclarêe dans unitê Unltd", qul n'est pa3 
۾ ۱* * م‎ 
1 پالنافدة المراد‎ dans la lıste USES. Youlez-wous Tajouler 


HT 4 Annuler‏ وحده النافدة 
و بمعنی اخر 
ألثافذة المنادية 
في هذه الحالة يجب عليك 
oui‏ 
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ملاحظة يمكن مناداة النافذة الأولى بواسطة النوافذ الفرعية الأخرى بنفس الطريقة و تحرير نفس 
غيير/اسم النافذة ونلاحظ ظهور نفس رسالة التأكيد السابقة المتعلقة بربط الوحدات مع بضعها 


جي أو فردي لذلك نعتمد على الدالة mod‏ 
ب 0 1 
ادا کان العكس فهذا يعني أن العدد زوجي 


OF AE eee:‏ ت 


label. caption‏ :-أدخل(القيمة 7 label‏ ٤اتغيير‏ د 


editl 0 Edit1.text:=0; 
1 0اتغییر دلالة‎ N =:button1.caption 
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التالية التي تعتمد على البنية الشرطیة 1۴ 


procedure TForml. BUTTOnNILLIICkEISENAEE: TOBE 
Tar 
a: inteEqEE ; 


heqgIn 
a:=strtointlEAitl.tEeExXT] ; 
1F a mod 22 =lJl then 
ahoumeE23AJE | ' إ 'العدد زوج‎ 
| if a mod ã <>0 then 
ahouwmeE323AagJE | ' إ 'العدد فر د‎ 
end; اأ ن‎ 
End. . 


` چی4‎ 
ID Label. Spt: =BON J JOUR Label1 


إمصi)تعمل‏ بواسطة مجال معين خاص بالنبضة 
قم بتغيير مجال المركبة 1إعءص1) 500 


2ص زاکما هو الحال عليه ر 
ع IOPINELES | Evênerments e‏ 
وحرر الأمرين التاليين: 


Enabled E 

lnteral a1311 | 
E Nane (me رط أضأڭضکآ۷ّآّ‎ 
8 129.10 


O ATA Label1 .vISible : —={(rue 


Label1.visible:=false 
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® 
e Te 
st 42۲4 م _ من شربطاالمراکجات‎ -pane1 
system من شريط آالمركب‎ timer 
label1.caption :=Adel laoubi system من شریط ا‎ 


خاصیة امع 
n1همبواسطه‏ الخاصيه اده 


قم بتلوين المركبة__11ء, 3 باللون الأس 
ثم قم بتغيير لون خط المركبة 11عطها 


قم بمراقبة حدود النهائية للخاصية [عط4] 


timerl 
التالية في الإجراء الخاص ب ۲1ع” )كما هو‎ 


a 


pProOCEAUFrFF TForml. Timer1Timer (Sender : 
bheqgIin 

label1.left:=label1.left H1; 

TE lapþell. lEfFL= 26U Ehen 

laþel1l. lEfFT:=U; 

ETH ; 


Tb JE 


Fn . 
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التطبيق السابع:إجراءات التلوين على نافذة 
في هذا التطبيق سنقوم بإجراءات التلوين على نافذة ما بواسطة الأزرار رہ٤)ںuط‏ 


التلوين بالأحمر/ =:button1.caption‏ 
ين بالازرق / =:button2.caption‏ 
أخضر / button3.caption‏ : 


button4.caption / دوشألl‎ a 


الجدول التالي يخنوي »على اللازمة البرتهامج عند تشكيله : 


ll Wl | Form. color:zclred; | button1 
| NNSA rormfProldr:=clblue | button2 
TET Formlcolor:zclblack | button4 


+° Form 


bheEHINn 
FOoOrIrml.COLlIOE:=ClIlrF eA; 
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1 f6البرنامج‏ منفذ في حالة التلوين النافذة 


التطبيق الثامن :إعادة تشكيل البرنامج بواسطة المركبة ”ا combobox] ComboEo+‏ 
×0 b0صoعمن‏ شریط قوائم المرکبات ل „ı. Sta d4‏ 

قم بتغییر -تلوين -بواسطة الخاصية )×م) 
قم بالنقر على الخاصیية ( کعرذااء)) ٥)إفیظھر‏ لك محرار نصواص بسيط 


Irmellariê 
ItermHelght 


قم بكتابة الصيغ التالية: 


21 


: : 3 To remove this message, purchase the 
SOLID CONVERTER PDF > reben 


Editeur de liste de chalneszs 


Editeur dE code... Arrular علا‎ 


البرنامجرغند تنفيذه من أج 


اللازمة لهذا التطبيق : 
combobox1‏ التالية: 


procedure TForml. LomboEoxlLhange (BENAEE: TVpjeECL] ; 
hejin 

IF Comboboxl. itemindex=U then 

Foaorml.COlorFr:=clred; 


TF Cormboboaoxl. itemindex=1l then 
ForFml.COlorFr:=clpb lue; 


IF Comboboxl. itEemindeEx=g then 
Foaorml.COlOor:=CcClIgfrEEEN?; 


TIF Cormboboaoxl. iltemindex=3 then 
FoFml.CoOlorF:=clblackE; 


FTL 2 
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أن المركبة تأخذ قيما:» من 0 3 
اصة بها كما نلاحظ أن الترقيم يبدأ من الصفر 


-1 إذا كان الاختيار الأول (0) 
إذا كان الاختياز الثانى_ (1) 
إذا كان الاختيار آلثالث (2) 
إذا كان الاختيار الرأيع (3) 


إنشاء تطبيق يتعامل مع مقاطع الصوت مثال برنامج قرآني كريم نسميه: 
سورة البقرة . : سورة البقرة مسبقا لكي يتم ربطه مع 


المر كبة الجديدةe‏ ام ھnnedi:‏ 
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ayerاp‏ mediaمن‏ شریط المرکبات e۸عtکرہ‏ 
قم تعر األخصائصضص التالية؛ 


| 


فتح المركبة وتجهيزها للعمل 
)تحديد مكان تواجد مقطع الصوت 


AulfaE rable 
ك‎ pٍ 
ûutoR ewmInd 


File arme 
Heıght 


-ثم نقوم بتغيير عنوان النافذ 


١ا‏ صورة البقرة _ 


جدول يوضح بعض التي يمكن تطبيقها على المركبةمرهام ه¡نdءMN‏ : 


Mediaplayer1.play; 
Mediaplayer1.pause; 


: : . To remove this message, purchase the 
SOLID CONVERTER PDF > eo rohan fhe 


Mediaplayer1.next; 
Mediaplayer1.step; 
Mediaplayer1.stop; 


1ءayاediap MW‏ وتحرير أوامر مستقلة حسب 


N Tor 
Yıalble 


TTT TTT TT TT TTT TT TTT TT TT TTT TTT TT TTT TTD 


LELLELLERRLRRLEELRERRERRERRRRRRLRNR ERR RR E EE 


کما بینه 


40 0 


e : 


procedure TForml. BUTTONSLILIICkEIBENAEPE: Tp FE 
bhefInNn 

mediaplayer l.PFlavy; 
end; 


چ 


procedure TForml. EULTOnNZLLIIZEKIBENAET: Tp jE 
begin 

mediaplayer1 . pause; 

end; 
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( )button2 


البرنامج 2 حالة التنفيد: ا 
× آ1ا 


lii mediaplayer :هناك عدة‎ 


mp س‎ 
progressbar1l = 
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5 To remove this message, purchase the 
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5 
سنقوم في هذا الإجراء بتطبيق بعض الاستعمالات على هذه المركبة 
progressba1من‏ شریط المرکبات 32اس 


button 
ّ button 
Progressbar1.position:= progressbar lposition+1; 
مع‎ مدقتیprogressha1‎ button 


لمرکبۂ ہی)٤‏ uط‏ 
الزيادة في النقر 
IIIIL‏ 


الزيادة في الثقر 
بداية النقر 


سے 


progressbar 


If progresszharl.poszition=5U then 
showıezzagê | ' انت منتصف | لجال‎ 


ستلاحظ عند بلوغ التزايد فئ التعبئة المنتصف د له كما هو موضح في الشكل التالي: 


ا× ادا 


IIIITIIIT 


If progressharl,positlion=lUUl then 
ahomıeazajE | ' JÛÊÈ| ا تاب‎ 
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SS 5‏ 
ستلاحظ عند بلوغ التزايد في التعبئة النهاية تظهر لك رسالة كما هو موضح في الشكل التالي: 


ا× اتا 
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م 0102005 1 
| 


التطبيق12 N‏ 
atetimepicke1#لمتخصضصة‏ في التعامل مع € والوقت: 
من شریط 1132س 

تحوي تاريخ اليوم )تاريخ النظام (تلقائياً وعند النقر ,على المركبة في ا تنبثق منها رزنامة 

شهرية يمكن من خلالها الرجوع الوراء في التاريخ مثال :لمعرفة يوم ميلادك بالمقارنة مع تاريخ 

ميلادك مثال: 

تريد أن تعرف اليوم الموافق لتاريخ ميلادك 

2 حدد تاريخ ميلادك باليوم و الشهر و السنة 

 )07/03/1983(‏ فتلاحظ أن اليوم الموافق لتاريخ الميلاد هو الإثنين انتبه قاط قاریع 


فهنالك عدة أنماط لاحظ الشكل التالي: 
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7 83 ™ 


السبت الجمعة الخميس الأربعاء التلاتاء الأئنين ‏ الأحد 
٤ 4 3‏ 
2ا 11 10 B‏ 


1E 14 15 16 1r 18 13‏ 
تاك لاك کے ت ا ا لاك 
أ3 لا ت ا ا 


f11 200F : 


يمكن تغيير شكل التاريخ من ناحية نمط أرقا 0 


day, march 07,1983 07/03/1983 
long short Date format 


]اليه التحویل 
07/03/1983 / 
Monday, march 07,1983‏ |/ 


التطبيق 13 ® 
مناداة برامج قاعدية في sءس0wلماسسنقوم‏ في هذا بشرح آليةمناداة برامج مختلفة ۵ 
ءine×eسلتحقيق‏ ذلك نقترح المتال التالي : 
:windows‏ 
uttonطو‏ غير الخاصية «ە0نامcapء‏ "': 
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5 
لابد من معرفة اسم البرنامج و مسار موقعه حتى تكتب طريق البلوغ إليه 
لنفرض مسار برنامج الاله الحاسبه هو عاھndows\|cہc:]|wi:‏ 
لأمر الذي يسمح لي بمناداته كما في الشكل التالي : 


procedure TForml.EuttoaonlLlickKISENAEF: Tp E 
heqgin 

WINEXELI'ciiwindowaî Calc! „aw _ahov] ; 

end; 


1- يتم مناداة البرنامج مع تنفيذ التطبيق المنادي 
c:\windows\calc 2‏ : 
برشامج عند النقر على الزر في حالة التنفيذ 
ا×ادا۔ 

ت ب | 

ج ي 

8 BE | Backspace 
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5 


التطبيق 14سنقوم بإنشاء تطبيق يقوم بإيقاف جهاز الكمبيوتر بكبسة زر 
1110 Bثم‏ خیر الخاصیۂ ١٥1امھc‏ :إیقاف تشغیل جھاز الکمبیوتر 
button‏ 


btefINn 
Ex1ItWIndAdowSE A ( EVA SHUTDUUN,U] F 


kend: 
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5 
التطبيق :15 
سنقوم بتطوير البرنامج السابق حتي يصبح غلق الجهاز متعلق ب ساعة توقيت يتم ضبطها 
لإيقاف تشغيل جهاز الكمبيوتر. 


ټغیرین (,ھ string‏ 
كما سبق وآنا شرحنا هذا 
الجهاز دوريا كل ثانية timer1‏ 


سنقوم بإنشاء 


Tar 
a, b:sTrFIng? 


bheqfl1n 
labell.caption:=timetoatr [time] ; 
a:=[EqAitl.tEXxXL] ; 
p:=[label1.captinnl ; » 


1F a =þ then 
Ex1tWIindouwszEx (EVA SHUTDUUN, U} 
else 

الرجاء الآنتظار حچ بلوږخ labelé.capt10n:='‏ 


0 
0 


\N⁄/ 
ک‎ 
vO 
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مه في المتغير ط 
:يتم إسنادها في المتغير ۾ 


يأتي دور مراقبة محتوی كی ١ه‏ الحالة التطابق سيحدث بعد : 
06 9ئانية أي انه بعد مراواز هذه المدة سيتم تحقق شرط المساىاة ((=ه) 


وعند تحقق الشرط السابق سيتم تنفيذ إيقآف تشغيل الجهاز 
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base de données قواعد المعطيات‎ 


نات : وهي عبارة عن مجموعة من البيانات مكد حامل فيزيائي معين 
تعریف عبارة عن ملف تخزن فيه قواعد 
f Module Base de OONNÊE#‏ 
Fi biı “lr Mlk: “FE êle Dik se1‏ 
ستحاول في ھ قديم آلية إنشاء قاعدة بيانات في دلفي بواسطة EE‏ 


Se de données 


vw. 
تعريف :وهو عبارة عن‎ 
قواعد البانتات بالإضافة إلى عذة‎ 


أخرى 
آلية(التنفيذ: عند تنصيبك 9 تم تنصيب module de bûd‏ 
تلقائيا واليك كيفية تنفيذه 
/ تنفبد ثم اكتب الأمر ال 


في مجموعة دلفي 5 يقوم بانشاء 


1 يمكنك إنشاء قاعدة بلانات) بواسطة برنامح 
فعلى سبيل المثال برنامج غج 
2 یتیج أك module de base de données‏ 
3 يستحسن اختيار نمط الإنشاء 0×7ل4١٣aم‏ 
. هاه 4 فيل آإنشاء قواعد 


آلية إنشاء ALIAS‏ 


module de bdd 
outils 
® gestionnaire d’ alias انقر على الخيار‎ 
تظهر لك نافذة جديدة قم بالنقر على الزر uمع۷ ا0ہ‎ 
laoubiZadel : »اه الجديد وليكن على سبيل المثال‎ 
تظهر لك رسالة تنبيه بالنقر على الزر )م‎ 


سد پا پز) ظط لط 3 


i. Module Base de donnêez 


Fichier Edition ETE Fenêlre Êde TT 
Hestonnaıre dallas... 
دا ع داك ڪڪ ڪڪ‎ be [laoubi_adel >| 


Liliane: 
Jppe de pilole : [STANDARD آ-‎ 


Moalz de passe... 
Lhemıin Jaccês ; |D: "Program Files Fichiel 
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آلية إنشاء قاعدة بيانات بواسطة لط module de‏ 


« 


م بيانات في module de bdd‏ 
هندسة قاعدة البيانات 
كن قاعدة البlıنا Base1(code,nom,prénom,daten,information ) : lll‏ 


_ Alphabétique :A | 

ا ا ا 
D #‏ 0 :نوعتاريخ | 
MEMO Ml | E‏ __ 


Fichier 
nouveau /table 2 
para 0×7 قم باختیار نمط‎ 3 

5 قم بحجز أسماء الحقول وتحديد كلا من -( 
6 عند الانتهاء من حجز قيم الحقول قم بحفظ قاعدة ١‏ 
laoubi adel‏ 

الشكل التالي يوضح لك الخطواتالشابقة 


E AE LN hh" a ___ 


J Jam gop Emo IAF oo FF me¬ ml __ 


pm sg om ~m H_rmam m~ gm m~ 


mr ET 


oT 
7 31. Ulan DEll dd SEI mm 


e و اک‎ mri mere > 


ل 


"mlmriir ma rmirrnliIrn 2 


2 | سے سے ٣إ‏ ب ۲ سے بطل ٣إ‏ کے ہس ہے پس سے سے سے سے س ر سے س س I ıa 7 7 e‏ 
ابو “| ح٣‏ سل ریس سے ہے - | سے ,سل پس یس ہے ,سے سے الس ےی ر کے سے ہے سے م سے | "AEE‏ 


ıa mm, | r Fr mr r 1 _‏ 1 1 س ۲ صر س 
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realıon de l3 fable FParadon f - ams fıkre 
Dezcniptan des champz : Proprlêltês d= دا‎ table ل‎ 
| Nom de champ | Type Taılle [Index _onkrles ds +alicikhê 
1| Code ر‎ bj * Dêfimir... 
2| orn ۳ لات‎ 
î  Prênarrı اا ر‎ I 1. Champ obligatoire 
4 LIate de HalSSaANCE Ll 
û | Inforrmatio n ا‎ 222 sS 
Enregistrement de la table sous ENES 
Enregistrer dans : ت‎ WY orkDir سول‎ e ÊÊ EEE 
Mom du Fchier : [hazel Î 7 Î أ‎ | 
Type : Paradan (°. 3b) ٠آ‎  Amruler | 
EE [= TRêvaIL ٠ ا‎ de | 
| ا‎ 7 RAYA 7 
ا‎ E 0 BDEMDS: 
l= Û efaultD Û: 
= lak 322l: 
IS PERMZE - 


إنشاء فهارس فرعية لتسهيل عملية البحث (0Z‏ 


آلية الإنشاء کک 
بعد أن تتم عملية تصميم قاعدة البيانات 


proprieties de table 
index sécodaires yهkو قم باختیار الخیار الثاJ من‎ 
définir 


قم بتحديد الحقل المراد إنشاء فهرس فرعي له وليكن على سبيل الم 


الحقل Xx‏ 
ok‏ 
فتظهر لك علبة حوار تطالبك بإدخال اسم الفهرسوليكنا7" 0× 


ok 
nom 0 لابد أن يكون اسم الفهرس الفرعي يختلف عن اسم الحقل كما قمنا بذلكشابقا بإعطاء‎ 
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Prop lêz ds la lable 


ET de »alıdilê > 


Lor 'mles d= «alldilê 


Aestructuraticn de la table Faradc# 7 : base1.db 


Uescıılon des zhampz : 


| Horm Je charmip Tep2 Tale KE 
۴ | * 


nods Û 
Tabe de rê rerCE 
2 0m 4 لاه‎ Inder secondalres 
3 Pren-m 2 لاه‎ lntéqkê rêfsrenlielle 
4 Date Je nslssanze . 5 8 کڪ‎ 
5 Inforrnatior 3 0 E 


0 


3, Yalu max mum : 


ا 


A, Yalu pa faul; 


¢ 


Geêfinition dun indleH seConNndA3IrE 


Late JE nalzsan CE 
Irforrrnatior 


Moadifisr ordre : >r 7 


FT Giller AAJ "ıt uirı 
FF Déêcroisszarnt 


Arrasler | لاک‎ | 
a 
Enregistrement de Findek × 


Horm inden : 


ror 


ûAnnuler علا‎ 


LIptions AE mde 
TFT Uripae 
FW Maintenmı 


N 


وأخيرا ها قد أنشأنا قاعدة البيانات 1عوهط module de bdd‏ 


لابد لنا من القيام الآن بعملية تعبئة قاعدة البيانات ..كيف ذلك؟ 

يسمح لك برنامج esءéمررەل de طasم de‏ eاnodu‏ بالقيام بعملية إدخال البيانات لكن بطريق تقليدية 

لكن في حالة القيام بعمليات التحيين البرنامج لا يتيح لك خيارات سهلة كالبحث و الفهرسة والاستعلامات ..... 
وهنا سنضطر للانتقال إلى الموضوع الثاني ... 
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د غير منتهي من الخيارات المطبقة على قواعد البيانات 
حيث بعمليات الإضافة التغيير الحذف الفهرسة e‏ بعدة خيارات وطرق متعددة وسهلة حيث تصبح قاعدة معطيات تحتوي على 
في يدك من ناحية معالجة البيانات . 


data source 1 
dbgrid1 


laoubi_adel : data base name ûيصاخلا قم بتغيير‎ 


4 ي مفتش اكنات د الخاصيا : e1يوط‏ وهو اسم قاعدة البيانات التي أنشأنا ها سابقا 
د true false‏ 


tall anel| DÎ rine ll 


TEE E r 


INS [TLheckLonstraInts] 


UatabazeH arme laoubı adel 


Table arme baze1.db 


Defaultlnde» \QBA5E Files | Active True r 
TableType |animals. dbf | 
DEDEMUS False | 
ا‎ 1a9 5 SS 
Filter Ecel Files LIpdateMad E 
: LIpdateO bije clients. dbf 
Filtered pse country. db 


1Filterllptiors is custoly.db 
lndemD es Access Database customer. db 
lnde#FieldH ari 


emnlnueea qh *# 
lndekF Iles [TIndeF Iles] 


i © table1 : data ourcel 
آلية الربط‎ 


1 قم بتحديد المركبة 1إ uمء data‏ 
2 الكائنات قم بتغيير الخاصية {عء و)جول بالقيمة 1ء[طه) 


e AııkoE dit True e ا‎ 


mM mE wm 
o ۾ اا‎ DataSet 
. mi Enabled Tablel 
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5 
ربط قاعدة البيانا المنطقية بمركبة العرض عل1اعٍطd‏ 

آلية التنفبذ 
1 


1او من شريط المركبات 4ط ۲۵[eإ٤con‏ 
فتش الكائنات قم بتغيير ائخlصيA data sourc1 : data source‏ 
ضح في الشكل التالي : 


هو 


e Crm 
lasp=de-1 dobfele 
Card TDG: ٣ 


Fm: | Eur caren: | 


latzecleuı dobje:r 


Prapr Hz | Eênenrenls | E Sa N O 


Mr alone UC A Eg OS I SE 
EERE LES 
BLO _ bzlaltloFgl 
Boel bent 
سل طا‎ 
DE IEEE 
ILonelran:s _[T-Eelorelranis] 
__ انا‎ _ cefa: 


٠ واف‎ OLE ا‎ E RT OS 
EL EE 
| ..Diiods xclelalgl 
| Badek zire 
Lr onde 
| Trmrs TRT 
EEE RES 
| Lur 2Eslaut 

| Cela: EEE ¬“ 
| LefaslranigT ê | 
|Cage 2| 
Tat FHA 
Lago Mad 
mF LC. 
Fela uue 
EA OO 
EES 
firma 1 


ED 
8 


E 
| 
E CEE 1 


| Dragkird diaz 
raced dua ual آ١‎ 
Ended ME 
_Fredzrlr _ _JcBtfaze 
AF-n: [T onl] 
KET 
Hepl-ntsx: U 

E 
| | ehore marke 


retê mola: 


ظهور الحقول 


تطویر برنامج تسییر فی دلفی 


سنقوم بتطویر برنامج قواعد بيانات في دلفي وذلك بالاعتماد على مسلبقإذكر ه )حيث سنعتمد على قاعدة البیانات 8۸58٥1‏ 
ونقوم بتطوير آلية من اجل القيام بالعمليات التالي basel‏ 
1 إضافة تسجيله 
2 البحث عن تسجيله 
4 تسجیله 
5 حفظ التغييرات على الطارئة على قاعدة البيانات 
tts 7 3‏ من شريط المركبات s)4 ۸d a۲4‏ 
button1l -‏ 
° قم بتغيير الخاصية «0ااموء recherché‏ 
هه طبق نفس العملية على باقي الأزرار وذلك بتسمیتھا على اأتوlئي)— -ajouté modifier -enregistrer -annuler‏ 


(supprimer-quit 


| Caption | recherchê 
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| Date de naissance | Information 


LBlaridl: TDBGridl 


۹ 


:كل العمليات السابقة ستطبق على المركبة 1ء1طه) 


تكون عملية كتابة الأمر بالنقر المزدوج على المركبة ٥٥)٤ںط‏ وكتابة الأوامر كما ي الشكل التالي : 
%_7 


enreAiztrer =LIppgrirner 


hegin herin hejin hegin heqgin 
taklel.lize:t, tablel.edit: tan lel, post; -ahlel.carcel: tah lel. Delete; HIDE; 
end end; end; end: end; end; 
#4 | | 
F9 الآن قم بتنفيذ البرنامج وذلك با‎ - 


- قم بإدراج البيانات حسب الجدول التالي : 


code prénom information Date de naissance 


001 Laoubi adel Tel :0790-88-03-08 07/03/1983 


/dresse :rue elnar-djelfa 12/0/1985 
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Information 
hiba laoubi UAUA 93 ain el hadjel 
| U4 bougqrara seddik. 1A UA"1975 adresse maddıd 
8 ONS beryattoll lila 10031988 diplomê universitaire 1 
| UZ djirîl moharmrned 121385 Adresse :rue Elnar-dfelfa ا‎ 
| UU laaubi اعد‎ UF U3 983 el: UFS0-88-03-08 
نيه‎ 
am 8 


recherchê | ajoukter | modifier Enregistrer | annuler ) 2UPPpIIMET ql | 


بقي لنا الآن عملية البحث کح 


: وفر وسيط للقيام بعملية البحث . 
قم إتباع المراحل التالية : 


edit1.text - 

- في مفتش الكائنات قم بتخيير الخاصيه {×ع) ا 

E ۰ ا‎ e : recherché : 
indK : 7 @ 


trouvées”); 


قم بعملية البحث من اجل القيمة 003 

فستلاحظ ظهور رسالة '' sع ۷é‏ 0uإ)‏ sءéررهك"‏ تدل على وجود التسجيلي 
التسجيلي م البحث عنها 

- قم بعملية البحث من اجل قيمة غير موجود لتكن على سبيل المثال 0125 
فستلاحظ ظهور رسالة '' 0uvéesا)‏ ر0 sەءé«ر«مل'"‏ أي أن التسجيلي غير موجودة 


42 


SOLID CONVERTER PDF 


alm = Prërnarm Date de nalzzance | Information‏ ا 


۶ 


J01 laouıbi ae UFZ 13983 el: UOF3U-SB8-UO3-UB8 N‏ ا 
UNA djirnı rmoharnrmned TA 11985 Adresse :rıe elnar-djella‏ | 
٣ U3 benpalttouı HE IIIE ESS diplarmne unryerszitalre‏ 
bouarara zEddiIk EI ES adresse maddIid‏ 04 أ 
ا= JUS hiba l2 ıbi UZA“ T۹3 ain =| had‏ 8 
Froject Î‏ 
dornêEes oY ÊEzs‏ 
ات 
ا mT]‏ 
N3‏ 
2]outer rmoadifisr Enregistrer annular 2p prirmer Il‏ 

_ Code [Mom [Primm [Date ds naissance|lntormation ~ 

| 101 lacuıbi 2ad5| UF U3 183 el: UFSAU-BB-U3-UB 

| IZ jirnı rmoharnrmned TA" UI” Adresse :rıe elnar-dfelfa 

۴٣ N3 benpatta E IIE EEE diplomas uriYerszitalra 

E U4 bouıgrara seddik ERIE Ea adresse maddid 

| JUS hiba lao 1bi IAA" 1۹3 ain اع‎ ha ا‎ 

Hroje cet] ۴ 
Jdormnêes non rowê z 
ات‎ 
mi : 


E 
aflouıter modifier Enregistrer annuler zp primêer quik 


0 


a‏ التي يسمح دلفي بتطبيقها على قاعدة البيانات 
Find key :‏ 
u‏ البحث بواسطة هذه الدالة نحتاج إلى 


ه لا بد ان يكون هناك فهر رئيسي لقاعدة البيانات المراد البحث فيها ) (index principale‏ 
ه لابد من توفر وسيط لاحتواء القيم المراد البحث عنها مثل المركبة :)»ع).1٤إلء‏ 
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آلية التنفيذ:؛ 


if table1.FindKey([edit1.text]) then 
showmessage( تسجيله موجودة‎ ”(; 

if not table1.FindKey([edit1.text]) then 
h0W عھء>م‎ e) تسجیله غير موجودة‎ (; 


.FindNearest :‏ 
تقوم الدالة بالبحث عل ٠‏ لومة وذلك حسب تقارب الحروف الأبجدية 
ئما ما یتم ن الإسماء أو الألقاب وذلك بتتبع تشابه الأحرف ومقارنتها في قاعدة البيانات ويتم 
نتيج وتعتمد على: 
1 لابد أن تكون قاعدة البيانات هذه rk‏ فلو e gr r ery‏ 


بيانات السابقة 


لقد قمنا بإعطاء فهرسن فرعي للحقل nom‏ 9` لال هذا الفهرس الفرعي 


edit2.text 1 
تابة الأوامر التالية ؛‎ on change 2 
begin 
table1.indexname:= xnom’; 
Table1.FindNearest([E 
end; 
edit2.text b 


فتلاحظ تحرك المؤشر إلى أول اسم يبدا بالحرف ط ثم التالي وهكذا 


وهنا يتم ترتيب قاعدة البيانات حسب الفهرس أبجديا ثم يقوم بمقاربة القيم(الموجودة 


< 
ک‎ 
vO 
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benyathouı lla SIMIC EES diplaome unlyesitalrê‏ 013 ا۴ 

| U4 bouqaraıa zeddik. R5 adresse maddûd 

U ERE djirni mohammad 15 re :rیح ادإ راء‎ 
| 105 hıiba lao 4bi IEEE alin el hadjzl 

0 10l lao bi adel IIE ESE el: OFSAO-SBS-UO3-U8 


my 
4 ٣ 
rezherzhêëË | 2Aauter | rmodfler | eEnregAlzkrar | arr uıler | 3 IPPprIET | ALI | 


ار 


ا× اتا 


| Lode Prênarn Date de nalssance| Information 


۴ O01 laouıbi adعا‎ UFU31983 el: UF30-88-03-08 

| UZ djirni moharnrmed 121985 Adresse rue elnar-djelfa 
| | HE benyaltou! lila 10031988 diplome universitaire 

| ONA bouarara seêddik 12 UA 975 adresse maddid 

| Ub hiba laoubi IIS EEE ain el hadjel 


ر 
۴ 2 
recherzhê 2joutEr | modifier eErregistrêr anrulEr 211p primer quit‏ 
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SQ£L)S :stricture L :lan: 0 :query)‏ لغة الاستعلامات البنيوي 

وهي عبارة عن مجموعة من الاستعلامات المطبقة من اجل البحث عن معطيات في قواعد البيانات 
LMD(L: language M: manipulation D: données)‏ البيانات 

الصيغة العامة : 


Select attrl ,attr2,,,attrn 7 


0011 Belhadi __bachir 02/11/1975] 35 [Rue fF 17000 OH Fm 
__ 002 Fadli____djamel | 12/03/1975 | 35 | Rue12. 5 e 120000 HT om 
003| ghadbane | doaa | 10/07/1980 [30 | Rue N e 115000 FF 
0041 Zaidi Kamel 0306/1976 |34 | Rue Wa 175000 LH | ble 
RD ro ر‎ 
0061 Kouidrl | Nourdine 06/07/19811] 29 1 Ruc 44 230000 HC 
007| Sadaoui 1 doaa | 12/12/1975 35g he “1000 YF Fa 
008| Khebal 1 Khemissî | 10/11/1910 70u REEn-ben yattouf 1950007 H | 
a 


N 
0 
CC 


Gm (code,nom , prénom ,daten , age , adrs,salaire ,sex): ليك قاعدة البيانات التالية‎ :1 


Wh 
ere condition 
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Nekbi 1071071978 275000 


$P... 


Select nom ,prénom 
From trava1illeur 


ما هي قائمة العمال الذين أجرهم القاعدي اكبر من 195000 


SN 


*% 


2 
From trava1illeur 
Where salaire >195000 


أعط أسماء العمال الذين أجرهم القاعدي =7000 


Select prénom 
From travailleur 
where salaire =70000 


___ 006 Kouidri | Nourdine | 06/07/1981 Rue 14 23000 
| 009 | Fadi |) Mohamed | 02/11/1955 Rue ch-ben yattou | 230000 
Nekbil 10/10/1978 27500 


doaa 


أ عط 


الكاملة لجميع العاملات 
Select *‏ 
From travailleur‏ 
Where sex=’f‏ 


11500 IF | 
___ 007 | Sadaoui _ | doaa | 12/12/1975 |35 | Sidi aiche gf a0000 Fem 
5ا‎ 


Select adresse 
From. travailleur 
Where code =005’ 


Code _ Nom | Prénom __ Adresse 4 ih 
if N J 


أعط القائمة الاسمية للعمال الذين المؤلودين قبلبعد تاريخ :0 


Select * 
From travailleur کک‎ 


Where daten >10/07/1980 


Code Nom 0 Age Adresse Salaire SEX 
Code _Nom ___ |Prénom _ Daten Age | Adresse | Salaire sex _ 
005 | Laoubı1 07/03/1983 #27. Rue somam 175000 H 

ا 
Kouidri „, | Nourdinê. | 06/07/1981 | 29 ıl Rue 14 |230000 |H‏ | 006 ___ 


التعامل مع $01 في دلفي : 


module de base de données: -1‏ 
يسمح SQ‏ وذلك بواسطة احد برامجه الفرعية : sءéررەd‏ مل مط de‏ ماduمص‏ الذي سبق وان تطرقنا إليه 


كيف السبيل إلى ذلك ؟ 
1 لتسهيل مهمة التعامل مع 501 لابد من توفر بعض الشروط المهمة ز 
ALIAS 1‏ 
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2 هندسة للقواعد البيانات تكون منطقية 


i. Module Base de données 
gpl | Edition  ukils Fenêtre Aida 
r٣ و‎ 


غاص ب 8Q1‏ 


تلاحظ ظهور محرا الوا 


owe aul 
IYI 
FerrnEr 


Enregistrer 
Enregisltrer sOUJs.,., 


A Editeur SOL : TRAVAIL: =Sans titre = 


× : شريط المركبات الخاص بمحرر S٤‏ 
1 تحديد وهاه مكان تواجد قیاع البيانات 
SQL 2‏ 
3 تنفيذ المساءلة اSQ؟‏ 

4 عملية الصق ا١معاامء‏ 

5 عملية النسخ ١مامهع‏ 

6 عملية القص آعم uهء‏ 


: لقد سبق وان شرحت آلية إنشاء وهناج module base de données‏ ® 
ءاه التالية [إمءله_iطسuمه]‏ و التي تحوي قاعدة البيانات السابقة - ( ٣م‏ ]]a۷aiا)(‏ \ 
لابد من تحديد هاج قبل بداية العمل 


Sêlection dun alias 


SQL 1 

sélectionne un alias 2‏ 
3 قم بتحديد ال يهاه التي أنشأتها مسبقا لاحتواء قواعد البيانات فعلى سبيل المثال :1ءله ك 
ok 4‏ 


Selection Jun alias 


: 2اك 


(%) (1) 


Kalartinn rf"ıın alae 


: > To remove this message, purchase the 
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< 


لاحظ الرسومات التالية : 
بعد تحديد واه العمل نبدأ في تحرير المساءلات السابقة 


= Fditeur SQL :laoubi_... ۳ لک‎ x 


select * 
froۍ®‎ traral1llleur 


BE Table : :PRIYE:REPONSE, D8 BK 


7 


= EdJileur SQL :laoubi adel: =S5ans iıre > Î | |€ | 
gteElert nom. prênom 
FFOm® tTaTailleur 


- هي أسماء و ألقاب جميع العمال 


50 


mme) ^ LID CONVERTER PDFS Ema 
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ù Editeur SL :laoubîi adel:... EE 


GEIECt #* 
From travra1llcur 
YH herre 2AalaîirE :1 3F NNT کڪ‎ 


Ef Table : :PRIVE:REPONSE.DE 


A FEF diteur SUL 


GE lect prêÊnoîm 
From EFTFaTa 31 llr 
where za la1lrFe =FUUNUN U 


:laoubi... 


© mI 


أعط أسماء العمال الذين أجرهم القاعدي =7000 


=1 Editeur SQL :laoubi... |= | 


Select * 
. From travallleur 
Yhere seg='' 


a0 


میع العاملات 
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am ۴ 


mw) ^ G OLID CONVERTER PD E 


3 Editeur SQL :laoubi_adel:sSans t... 0× 


4 


select nom, prênonh, adresse 
froۍ‎ travallleur 
here code= 'll0S' 


mM 


1 


# 


3M 2. 


Am 
+ Lditeur SQL :laoubi_adel:Sans t... - 
Select #* 


Froa travallleur 
Yhere dateh : ‘llU#lUf#1lIDU ' 


mE 


a3 


f E Table : :PRIYEREPONSE.DB Ik 


REFCNSE Coe Hm Pim Dam Aye | Alesse Sr Sabie | 
1 


am 
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mm) ^ G OLID CONVERTER PD TE 


select * 
from trava1lleur 
where age=35 and salalre >2Z0000 


- 0× 


#1 Editeur SAL :laoubi_adel: Sans titres 


select * 
fron trava1lleur 
¥here 33E=15 and s=alaire :20UU0 


8 Table : :PRIVE:REPONSE. DB 


REPONSE Cole Yor Preram | Jater E Adtes$E E ELE 


O beled bachir NMS Smet H 1000 
201 hi amel AMIS el? 1 0000 
االو 0اد‎ mohamed UNS 2a UE eh -ben yao hM  AMUDUN 

| 

» 


أعط القائمة الاسمية للعمال الذكور الذين سنهم =35 و أجرهم القاعدي اقل من 23000 N J‏ 


= Editeur SQL :laoubi_adel:sSans titre 


select #* 
from travallleur 
¥here a7Şe=3[5 and s=alalre <230JU00l and sezg='h' 


mE 


چا 


BE Table : :PRIVE:REPONSE.DB 


REPONSE 08ا‎ | 0 | 


E: fad djamel 1203/1975 | 35| ru2 h | 12000000, 53 
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يسمح لك هذا الأمر بالبحث عن مجموعة من البيانات وفق حصر شرط البحث بين قيمتين 


ین سنهم یتراوح بین 27 30 
: اللائي أجرهم القاعدي محصور بين 175000 195000 


š1 Editeur SQL :laoubi_adel:<Sans t... |= (|X| 


select * 
from trarvral1llleur 
here 338 betyeen 27 and il 


IIIE 


۹ +: 


E Table : :PRIVE:REPONSE. DB x 


REPONSE hE | arm | Prênom | Later | ع4‎ | AdrESSE Sex| dalalre | 
0J3 ghadbane EE 1007980 30 rue h12 f 1500000 
205 lanubi adel IEEE 2# fue saman 1 174 UD OU 
غ300‎ kouldri nourddine I E 20 4ا عل‎ 1 2 000 


» 


= [diteur SQL :laoubi_adel:s5ans tires کا‎ 
select * 4 
from travallleur E 
¥here salaire betyeen 175l0l and 135000 7 
ا‎ 
۹ 
= Table : :PRIVE:REPONSE.DB ی‎ IX 
REPONSE Code ar ) Prêenan | Later ES Adresse | Sex| Dalalê | 
DY! ai amel IMGHITG 34 retê h000 
اوا طلا‎ adel IEEE 2, PIE Samar 1 ENI 
3U khebal khernlss HEH 4 rue ch -ben yattou f 5 UO 
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N01 BETWEEN‏ يعمل هذا الأمر عكس عمل الأمر السابق حيث يعطيك مجموعة قيم خارج مجال معين سنطبق هذا الاخير 
على المساءلتين السابقتين 


قائمة العمال الذين سنهم يتراوح خارج المجال ( 30...27) 
اللائي اجرهم القاعدي الغير محصور بين 175000 195000 


1 [diteur SQL :laoubi_adel:%ans Hitre> 


from trara:ller 


select ¥ A۸ 
shere A+ ant betreer 2+ ard 1l 3 


Êl Table : :PRIVE:REPONSE.DB 


belhadi bachir A11975 35| rue 48 H 14 OOO,OO‏ 001 ڪڪ 


fadli djamel AMAS 35 rueld 1 1A1 UO, OO‏ لالا ك 
zaidi Karmel BAF 34 re48 1 175 UO, OD‏ 4لالا 3 
DF sadanui doaa AA 3 Sidi aiche 1 FAO OD‏ 4 
DUB khebal khermissi 1011713/0 AU rue ch -ben yattou h 135 OOO OD‏ 3 
00 00 لات E fadli mohamed ATIF 35 rue ch -ben yattou h‏ 
F010 nek bil kamel EHS ERE 1 2 0000‏ 


@ 


fram trarailleur التعبير‎ E تسمح التعليمة السابقة بالبحت عن جزء من معلومة إن‎ LIKE 
non Liked : إليك المثالين التاليين‎ 
ما هي قائمة العمال الذين اسمهم يبدأ ب: ل‎ 1 
۴: ما هي قائمة العمال الذين يبدأ لقبهم ڊ‎ 2 


ghere çrênor. like'd* 


Hi Tabk : :PRIVE:REPONSE, DE 


RZPONS= DE 


nT 


Prétin' Lister ES ALBEE Se | RE EL | 

ow E E MAES Brel ۲ 1200000) 
LE RENE MEE 1 AEA 3J tue hla ا‎ EE 

0 ا320‎ IEE Ales 3 eld alche ا‎ IIIE 


= Editeur SQL :laoubi_adel:... × 


= Table ; :PRYL:RIPONSL.DD 


select #* 
IrOۍ‎ travallleur 
here non] like'f*#' 


REPONSE Code | Mom Prfnom | Dalen Aye Adresee Set Saale 


fall 


mM | 


1 
| 


<> 


E 


E2 
rE f “bert yall 


Jamel 
rubar 


0 ONU 
لے‎ 00 00 


HIE ك‎ 
AEH 3 


al 


ېه 
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3 ما هى قائمة العمال الذ 


=1 Editeur SQL :laoubi_adel:... | (O |X 


select #* 
froۍ‎ traval1llleur 
where prênon lıike'3a_ 


ا 


3۹m 


Bf Table : :PRIVE:REPONSF.DB ا‎ × 


REPONSE Code orm | Prênorn | Daten EE AdrBSSE Sex| alal 
ا‎ laoubi ade O7031983 | 27 rue somamm  h | 17500000 


ل 


: يستعمل الرمز ( «») لا يهم عدد الأحرف 
يستعمل _ (92+.)1ه) لتحديد عدد الأحرف 


COUNT 
أتحديد‎ 
إليك المثال التالي‎ 


ما هو عدد العمال الذين سنهم > 30 
النتيجة تكون 6 أي عدد العمال الذين هم اكبر من سن 30 سنة هم ستة عمال 


Bl Table : :PRIVE:... (OX 


select LOUHT I# |} + 
from travallleur E 


yhere a38:3l ٠ کک خخ‎ E 


×1۸ تسمح لك الدالة السابقة بإعطاء اكبر قيمة في قواعد البيانات وفق شرط معين 
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1 ماهو اكبر اجر قاعدي للعمال؟ 
2 ماهو اکبر سن للعمال؟ 
اا 
REPONSE | ___MAX OF salaire 7 |‏ 
E 2750‏ 
e EI‏ 


* 


BE Table : :PRIVE:REPONS... 


= Table : :PRW.. 
REPONSE MAX OF JF 


0× 


4 | 


MIN‏ تشمح لك الدالة السابقة بإاعطا في قواعد البيانات وفق شرط معين 


1 ماهو اصغر اجر قاعدئ للعمال؟ 
2 ماهو اصعر سن ألعمال؟ 


BE Table : :PRIWE:REP.. 


REPONSE MIN JF 22A EE 


EPONSE MIN س‎ 
N | 


6 تسمح لك هذه الدالة بإعطاء متوسط معدل قيم - 


من نوح صحیح امع ع)ہ] 
: ما هو معدل أعمار العمال ؟ 
تقو م الدالة بالعملية التالية age/ nbr travailleur‏ 2 


BE Table : :PRIVE:REPONSE.DB 


REPONSE| AwERASE JF AGE | 
N 2 | 


SUM‏ تقوم الدالة السابقة بإعطاء مجموع قيم حقل ما 
: ما هي قيمة الأجور الموجه للعاملات ؟ 


SES 


ama 


= Table : :PRIWV.. 


E aly OF TET 
__ Een 
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om 


تقوم الدالة بتقريب القيمة إلى اقر 


Ei Editeur SQL :laoubi_ad... |= (O |X 
SELELT HAZ I=ala1re]} 
from travallleur 


.. E | E 


7 


SEG 
SELELT HAZ |a3e; 


= Editeur SQL :lao... 


from travallleur 


E MIE 


ر | 


™ Editeur SQL :lao... 


SELECT HWIH !SALBAIFE; 
IrOۍm‎ Itra¥al1llleur 


7 
Editeur SL :lano 


Mis MIE 


GELECT HIH TAGE; 
from trara1lleur 


2 mm چ‎ 


® 
نوع المتغير معج 


Zî Editeur SQL :lao... _ (OK) 
SELECT AY AE) 
from trara1lleur 


3 | 


په 
E MIE‏ 


Hi Editeur SQL :laoub... l (BK 


ELECT SUH (sala1re] 
TOR travallleur 
here sex='f' 


#% 
L> 
اا‎ 


TIMÎ 4 
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Ordre, by‏ تسمح لك الدالة السابقة بترتيب قيم جدول حسب حقل محدد 
يض قائمة العمال الذين سنهم أكبر من 30 بحيث يظهر ترتيب الأسماء تصاعديا 


= Editeur SQL :laoubi_adel:sSans titres 


GeElect #* 

Fron trara1lleur 
Where age : 3l 
dUrder Bg ron 


TENÎ 


| 


| 


= Table : :PRWE:RIPONSE.DB |X 


REUSE _ 3ا‎ Fren Laten Dam Ae ALFES3E Se | EE 
belhali bach NH IETE 3 E 48 1 147 OL 
al ENIEÎ IEEE 3 eld 1 120 OOO 
al mohamed EE 3 ue ch -2En yatta | f EE IIIIN 
khebal kKaermlss HE 4L rue ch -2En yatlou | f 195 OL 
nekbi Karmel HEH 3J2 E lA 1 AOL 
zi Karmel BABA 34 48ول‎ 1 EIR 


وا,ذا أردنا عرض قائمة العماك"الذين سنهم أكبر رمل 30 بجيقيظهر ترتيب الأسماء تنازليا ..نستعمل الأمر عئعل 
نريد عرض قائمة الكال الفلل سنهم أكبر 0وا رتيب الأسماء ثم الألقاب تصاعديا 


= Editeur SQL :laou... [— || O || | 


Elect #¥ کی‎ 
FO Lrarwa1l leur = 
here 335 >: 3 س‎ 
Tiler Hy nom „,. prFrênom 3 
س‎ 


ÎÎ e 


:Bël| Table : :PRIVE:REPONSE.DB ا‎ 
REPONSEÎ Wade Prêëênarn Later | - : E 3 38 SEK 2alalre 
1 1 belhadi bachir U25 rue 48 H 147 OOO OU 
n 2 fadli djamel IEEE rue 2 h 12U OOO OU 
33 adlı mohamed EES 33 | rue ch -ben yattou | لات‎ 0N ل00‎ 
4 8 khebal khermisszi HEHE All| rue ch -ben yattou |h 135 001 OU 
510 nek bil Karmel EHS AEE hı 2 0000 
|4 zaidi karmel U3UBIAFE 4ك‎ re48 h 175 OOO OD 


F3 Editeur SQL :laou... E ۱F) 


GE IEC # 

From Ltrarwa1l leur 
Where 33e >» 3l 
rer By nom desc 


3 
^ 
ve 


TTL n‏ لے 


55 Table : :PRIVE:REPONSE.DB 


REPONSE| nde Prêënorm Daten —_ AMES SE | Sex | aalalre | 


O1 Zaldi Karmal UIMEAIIFE 4 re48 h 175 OUD UUÛ 
--_ 10 nek bil Karmel MEER ٤ re l2 h ت‎ 0NN ل00‎ 
38 khebal khermissl 111370 All| rue ch -ben yattou Hh 135 OUD OU 
| fadlı djarmel IEE 35 rE h 1A0 OO DOD 
22 fadli moahamed U25 34 rue ch -ben Yattou |h لات‎ 00 00 
B| 1 belhadi bachir SEHER عل | د3‎ 48 H 147 UU OU 8 
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ء وتصميم قواعد البيانات بواسطة أوامر $01 


يمكن تصميم قواعد البانات بلمسات برمجية دينامكية وأكثر سهولة ومرونة من تصميمها باستعمال برنامج متخصص 


مفاهیم : 
Prymary key‏ : يه التعليمة بتحديد المفتاح الأساسي لقاعدة البيانات فبعوض استعمال الرمز (*)لتعين فهر سة 
البيانات#حسب الحقل de base de donnée ١‏ eاduدص‏ نستعمل التعليمة السابقة لتحديد الحقول التي يمكن البحث 
بؤاسطتها 
الطتغة العامة : 
CREATE TABLE "nom de table. extension " nom de Yo êtres „, nom de champ2‏ 
paramêtres... nom de champs paramêètres‏ 
„primary key(noms des champs)‏ 
ض أنواع المتغيرا 
t‏ 8۸ متغیر حرفي N‏ 
NUMERIC 2‏ متغیر رقھی 0 


Nom de champ - کے‎ Type derchamp 
_Num_permis ____ A :alphabétique A r Oe, 


Nom | Aalphabefique >» cha ww 20| 
„ A :alphabétique > _ char 20 


D:date 


adress # ij^ ‘alphabétique > Char ا‎ 
_ | I numefique —»> numeric __ 10:deux hombre 
sex < A -alphabétique >, char RT 
Type P_ - :alphabétique > اا‎ 


1۳٤ 3‏ متغیر من نوع تاریخ 
TIME 4‏ :متغير من نوع وقت 


(@ 


feur (N- permis,nom,pfénom,daten , adrss ,age ,typمصe_p}‎ ,؟عx.(‎ : سنحاول تصميم قاعدة البيانات التالية‎ 


59 
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CREATE TABLE '""'chauffeur' 


( Num_permis CHAR(6)gnom CHAR(15)9 prénom CHAR (20)gdaten DATE AR (40), age 


dress 
¢ 


NUMERIC(10)g sex CHAR (1)gtype_p CHAR (15), PRIMARY KEY (Num 


في كهإاه تحت اسم انجa۷ا)‏ 
أو قم بتتبع صيغة البلوغءالتالية :)ا١ء‏ 


ملاحظة :الفهرس الأب )°:/5:/E:/۴:...0‏ 


C:\Program Files\Fichiers communs\Bo 
module de base de donnêe : باختلاف هکان تنصیب برنامج‎ 
ںffعuا في هذه الحالة لقد قمنا بتصميمرقاعدة البيانات‎ 
]1210ء ولاحظ بذ‎ u حاول فتح قاعدة البيانات السابقة را‎ 
: لاحظ الشكل التالي‎ 


1 

A | Hor ٤ 
3 prênom لاك ب‎ 
4 dateh 8 

| adress ا4 بم‎ 
BH) age ۳ 

fF | SEX بم‎ 1 
O typE_p پر‎ 15 


قم بحجز البيانات حسب الشكل التالي : 


BE Table : chauffeur.DB 


chauffeur N mi _permis prêrıarr | date adress E ګ‎ * | E j | 


EE 
EE 


LIHÊ 

Lourd 

LIHÊ 

pas de permis 
pas de permis 
El 

Lourd 
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SEEEEETET 


RUE 12 

JJLED SU YFEB 

RUE LH BEN YAT TUL 
RUE GH BEM YAT TOL 
RUE 48 

RUE 48 

RUE 44 

RUE DE SUA 
RUE DE SOINARYyÎ 


5 لال1 
MFT‏ 
EH ENS‏ 
IHEHI‏ 
RELIES EHS‏ 
ATTIS‏ 
EE EEE‏ 
1I1 219b‏ 
IIE EEE‏ 


DLDIJAMEL 


MNMLIREDDINE 
HATYE U 


EHEMD SI 
A ÎEL 
BAL-HIR 
BELHAÛI 
LAREHDAR 


A4 DEL 


FADIL 
kEJMDRN 
FADIL 
kKHEBAL 
اا‎ 
BELHADUI 
کرلک‎ 
ا6 اھ‎ 
ا6ھ‎ 


4ك ال0 1 


ادكلا 2ے 
#4لالاا 3 
#4د لاا 4 
4دل2 11 د 
B| 12U25‏ 
4دا 
طا د 
21548 3 


5 


تصميم برنامج في دلفي لتنفيذ أوامر 51 ذاتيا 


ery‏ و eاطھامن‏ شریط المکبات 85 Access‏ :ا2ا وا 


FE 


data source! ,data source2 


4 » 


! ك 
إضافة المرك: 2 dbgride1 ,dbg‏ 
. إضافة المركبة 0۷)0١‏ 


NS 01 إضافة/المركبة‎ . 


0M‏ ن ج یرک 


vw 


ملاحظات :سبق وان _قمنا بإانشاء قاعدة البد chau‏ بواسطة sع٤donn base de‏ eاmodu‏ وتم حفظھا 


في ال: كهناه التالية : 1ءلهة سه1 الان الفيزيائية للمركبات الخاصة بالبيانات 
۲ ربط المركبة 1ءاطه٤‏ بقاعدة البيانات 
† تحديد المركبة 1عإطه) ر 


del aktas ب:‎ data base ١دaإرع تغيير الخاصية‎ 2 


3 تحديد اسم قاعدة البيانات بواسطة الخاطية ع1٣ه1‏ عاطع) وذ 
4 تفعيل وفتح قاعدة البيانات بواسطة الخيار ; ع0ا٣)“:‏ عac)1۷‏ 


trava1lleur.d 


آلية التنفيذ: 


data source] تحدید المرکبة‎ 


» 
2 ربط المركب data source1‏ ڊ table1‏ ⁄ 0 
2 تغيير الخاصية اعكء هaاجd‏ ب 1ع[tab O‏ 


3 ريط المركبة d1لذإوطل‏ بالمركبة “0O data source1‏ 
آلية التنفيذ 


dاbعإ1ل1 تحديد المركبة‎ 
data source1l: ı data SOUICE ةÃيصlخlاl تغيير‎ 2 


ملاحظة : ربط المركبة ۲1ع اي بنفس كه1اج ............ laoub1 adel‏ 
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5 
- ربط المركبة 1لإعاي مع المركبة 2ءء uمء‏ ههل بنفس الطريقة السابقة وكذلك بالنسبة لعملية الربط بين 
Dbgrıd2‏ و data source2‏ 
قم المحتوى 1٥10ع‏ الموجود في المركبة ۳01٣ع"‏ وذلك بواسطة الخاصية S٣1١‏ 


Begin 

Table1l.databasename :=’laoub1 adel’; 
Data source1.data set :=table1: 
Dbgrıd1.datasource:=datasource1 ; 
Table1.active:=true;: 


Query1. databasename :=’laoub1 adel’; 
Data source2.data set :=query1; 
Dbgrıd2.datasource:=datasource2; 


End: ASÎ 


CE N 


آ ا RN‏ 


- بعد عملية الربط الفيزيائية سنقوم الآن بعملية البمجة 4 


- قم بتسمية ماهية الزر 11١u)0ه0ط‏ ب 5Q1:‏ ٤ااء6×ع‏ وذلك بواسطة اص زا 
Query1.sql:=‏ 
Query :‏ 


انقر نقرا مزدوجا على المركبة 1١٥اuهط‏ وحرر الأمر التالئ: 


o1.l1nes ; 
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5 ج ججج جج سس جج چ۾چڄجچجچڄج ج ج ج ججج هه ححح ڪڪ 


" laoubîi adel “SL — عو إا آ‎ 


I ILL. ALIHL S335" HIIL OL SSO "ك‎ 


AM FFICHMAE RESULTMT GCE SUL ڪڪ‎ 


1265711 LIE LEH OR VIF" 1 39B RUE GE SOMA 


2II 48 En I= EL UFZ” 333 RUE CUE SOMA 


۸ 
# 


pur ıı ıı ılalerı ıı lı ez:x: nH | 


TIN MII 

DERKET FD LI GCIMMAE L 1203/0175 | RUE 12 35 
EEE EOLIDCRI MOLIRE COIME OEFOT71381 DULED SOLITEE 2 = 

TINI 1&1 | FAI IPFA 11 ITT"! TMI IAMIIINN HA rTAI IIIIII all 
. 102204 HEHE BAL HHE MISSI 1071111370 RUE CH BEM *ATTOLI 40 
EEL ZI DI hl E L 03DEIAFE RUE 48 21 

I 20025 EELHADII EACHIFR O2FII#IATS RUE 48 35 
: 174A A A. nrI IIATıl 172n71nnn ) OLIC d4 1 
MO] چ‎ 

» 


ملاحظات: البرنا السابق ليس مكيف لل 
خيارات تحديد اسم |قاعدة البيانات وال: كهناج | 


» 4 
الطباعة فى دلفن: 
يتيح لك دلفي إمكانية التعامل مع البيانات وطباعتهااوذلك بتوفير مجموعة من المركبات .سأحاول تقديم شرح لكيفية التعامل 

مع الطباعة من ناحية : 
# طباعة البيانات 
2 طباعة الصور 


» 


تعريف المركبة :1ء ۸ء1ں تسمح لك هذه المركبة بطباعة البيانات٠‏ مع إضافة ا N‏ 
يمكنك تحديد إيجاد المركبة السابقة في شريط المرکبات ٤0۲م‏ ءإQ‏ 


شرح بعض مرکبات الشریط Q٤ ۲0۲٤‏ 


+ المركبة 
2 المركبة إعط1aإعء‏ 
3 المركبة Qrdbtext‏ 


| سنحة امل امرض راطای: 
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1“ لتحديد العناوين والكتابة مثال رقم الهاتف .الاسم.... 


0 امرس کیم لحور 
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RESENO 
A.E 

اکت سد ک۵ 
ت © 
Fn.‏ 


¢ e CT 


سنحاول نمید و خطبط ورقة الطباعة حسب قا عدة البيانات J chauffeur » db‏ 0 


chauffeur ( om,prénom,daten , adrss’,age ,type_p ,Sex.) 
لدينا عدد الحقول =8 حقول هذا يعني انه یلزمنا:‎ 
O Q1ھطع1عون إحضار 14 مرکبات من‎ + 
۵ Qا5)ع×) إحضار 8 مرکبات من نوع‎ 2 
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5 


أو لا وقبل كل شيء قم بتصميم نافذة صارمة وذلك على نحو الشكل التالي لمزيد من المعلومات راجع الجزء الثاني من 


إصدار هذا الكتاب . 


RUE 12 
UUWULED SDOUTEB 
RUE LH BEN TATTULI 


RUE LH BEN TATTULI 
RUE 48 

RUE 48 

RUE 44 

RUE DE SOMMAHM 
RUE DE SOMMAH 


1 


| 


Imprimer 


FF CHATRA -teste impression 


Num_permis|j nom _________|[préênom_ daten 
Booi25+ EM DJAMEL 12/03/0175 
| o28451 _ KOUIDRI NOUREDDINE DE071 981 
| jioo254 FADUl MOHAMMED 0211/1975 
| ıo2254 _KHEBAL KHEMISSI 1011/1970 
12054 ا0ھ‎ KAMEL 03/08/1 97E 
120025 BELHADI BACHIR 0211/1975 
| 125454 SANNA BELHADI 1202/1980 
12654 _ LADUBI LAKHDAR 01412/196E 
| 201548 LADUEI ADEL 07/03/1983 


s1pprirmer 


ajouter 


modifier 


Enregistrer arnuller 


recherche par rumêro de perrnl= 


بعد القيام بعملية التصميم سنحاول الأن تصميم صد لصاءة کر X‏ 


Qrlabel 
Qrlabe2 
Qrlabe3 
Qrlabe4 


Qrlabe5 


QEIADEO: ssa 
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Qrlabel4 
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بح 


¢» 


La république algérienne démocratique et 
populaire 
Ministre de transport 
Direction de m’s1la 
Secteur de : ain el hadjel 


Fiche conducteur 


4 


Dérecteur 


This document was created using ک5‎ mm LI DD 


La république algérienne démocratique et populaire الدولة‎ 


Ministre de transport الوزارة الوصية‎ 
Direction de m’sila المديرية‎ 
Secteur de : ain el hadjel الفرع‎ 


Fiche conducteur اسم الوئيقة‎ 


- عناوين الحقول : وهي دلالات لتحديد ماهية/المعلومة 
وهي دائما ثابتة ولا تتغبر إلا في حالة تعيه د تصميم الورقة الإداري 
وتغییر ما یجب تغییره 


age ......السن...:‎ 


Dérecteur رıدnئl‎ 


ملاحظات : نلاحظ إن عدد القيم المتغيرة في كل حالة هي :8 قيم وذلك راجع لعدد الحقول المراد طباعتها وفي حالتنا 
هذه لدينا 8 حقول و الخاصة بقاعدة البيانات(إںع؟uÊfاهطء)‏ حيث انه لابد أن يكون عدد البيانات مراد عرضها 
متوافق مع عدد المركبة {×عطلإQ‏ المتخصصة في عرض قي التسجيلية الحالية 
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Qdbtext1. 


Nom :... Qdbtext2. ........ Prénom. :...... Qdbtext3. 


Date de naissance :...Qdbtext4. sex. : Qdbtext5. 


Qdbtext6. 


Type de permis : ... Qdbtext7 age :... Qdbtext8. 


تطبيق التصميمقلى ورقة ١‏ 


في نفس المشروع السابق قم بما يلي : 
- بإجظار المركبة 1مع 
قم بتفعبل)النطاق 61ل وذلك » 
قم بتو سيع النطاق|11ه]6ل لكي ب 
قم بإاحضار 14 مرکبة من نو ع [عطھ]] 


نس لډ ډن) خ 


الشكل- 2 
6 قم بتغيير محتوى المركبات بواء ةيد ية N7"‏ 


( La république algérienne démocratique et populaire) 
:=( Ministre de transport) 
:=( Direction dem’ sila) 

:=( Secteur,der: ainiel hadjel) 

:=( Fiche conducteur) 
rlabe6.caption :=(numéro de permis) 
rlabe7.caption :=(Nom) 

-  Qrlabe8.caption :=(Prénom) 

-  Qrlabe9.caption :=(Date de naissance) 
-  Qrlabel0.caption :=(Sex.) 

-  Qrlabel1.caption :=(type de permis) 

-  Qrlabel2.caption :=(age) 

-  Qrlabel3.caption :=(Nom) 

-  Qrlabel.caption :=(directeur) 
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بعد القيام بعملية توزيع المركبات 


8قم بإحضار 8 مرکبات من نوع ٤1‏ ط۲1۵وطل من نفس شریط المرکبات :٤۲0۲ء٤‏ 
© ۹ بتخصبہ موقع هذه المركبات الثمانية بحسب تموقع عناوين ¿ الحقول وذلك حسب الشكل- 2 


ربط المزكبات ٭ءط0rd‏ مع حقول قاعدة ائبيlنlت chauffeur‏ 


لنفرض أن مكان تواجد المركبة :1 ٥p‏ R)ء1ںQ‏ في ٥۲1‏ أي أننا سنستعمل نفس المركبتين 1ع[طجt‏ و data source1‏ 

وذلك من اجل إحصار البيانات وعرضه على ورقة الطباعة . 

آلية الربط : 4 
1 قم بتحديد المركبة 
2 قم بتغییر محتوی | 
3 قم بتحديد الحقل المراد 
ملاحظة : ان عملية ربط الحقول 
لاحظاالشکل0التالی : 
قم بتكرير نفك العمليةمع باقي المركبا ة عنوان الحقل (تحديد قيمة الحقل حسب دلالة العرض) 


0 
ھ اهل ب القيمة 1ع[طه) 
رضه من خلال تحديد قيمته من الخاصية )1ع۴1٣‏ وجل 


باعة هي نفسها تقريبا عند ربط الحقول من اجل عملية عرض البيانات : 


e 


DOataF ield 


|] OCataS5et 5 


Mumêro de permis ; IRDETextÊ ا‎ 1 
1 Enabled 


1: الحقل ' ل و جرلة انشطة ۲ 


seks Esas Clay alal Ss aa aaa alle Sees Baas aang id mi gia a ۸۹a hss ۸ as aaa lass wse ۸ ssa as e aca es ۹ aaa mia a al | 


- a. ٤ - 1 
La rêpublique algêrienne dêmocratique et populaire, 


= 1 
Ministre de transport 
- - = 
Direction de m'sila' 


. = رّ_‎ 
Secteur de : ain el hadjel 


Fiche conducteur 


L ى‎ 


Murmêro de permis Num_permis 
1 2 Ê | _I | 


7 1 ۲ “1 5 “1 ۳ 2 “1 
om :;, pom, pPrênom. j prênonî 


٤ 3 ۳ ¬ 
: Llate de nalssance ; laten 

1 “1 ۳ 
' f Sex, ge 


a ' Adresse 


GetailBand1: TQREBand 


e1 


adress 


: Jype de permis type_p, Age? agê 


i 1 
directeur 
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تحديد مكان لورقة الطباعة وذلك بالقيام بعملية إخفائها لكي لا تشوه هيئة البرنامج أثناء التنفيذ 
في الزر 80010١٧‏ الذي يحمل |لدil (on click) imprimer‏ 
begın‏ 
QuickRep1.preview;‏ 
end;‏ 
S8‏ 
البحث عن البيانات المراد 
2 الطلكد يه المعلومة 
3 عملبة اة 


CLHAIRHA tesle mprcssw n 


۰ ۰ 1 : 
E E =reram a: EE : = متال ربد طباعة بیانات السائق الدى يحمل ر‎ 
1211 RI 21.۴ TMI 3 15 OF TMAH 2 
EMIN YI 3TEIHF RAR 1I FD TINF= 0 0 ۳ 0 41 
YADOHé4 HMED lr 1H EEMT TJ حجر نمه م حصتة‎ 
| Cl WMD 11-ALA TJ ر ر‎ 
اة‎ LL IMIG I- 4 1 0 
ACH? 2171975 1 ¥ ْ اليحث عن اأقيمة‎ 2 
ELI MLN 1= 411 ۰ 


LLLEI AF 112F - "IIB 315 DE SDMEH 


3 طباعة البيانات في حالة وجودها 


ual e HIE E adlı 3-MA MEME‏ اعالاد 
erhelcre pzr “Imm ds pe mE‏ 


laoubı_adcelfEyah oo.com 


LHATHA -tasta im preszian 


1 MATA RIF = 3 TAFlal1 
UA DOULSTE 51 JEB 
U13 RUE -F Bk ATTOU 
AID OUC I Dk ATT 
UzrTE’13 RUE 48 
U11 RUE 48 
E BE 11 
DIFI" RUE 15 5 IFaR 
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لورقة الطباعة 


La rêpublique algêrienne dêmocratique et populaire 
Ministre de transport 
Direction de m'sila 


Secteur de : ain el hadjel 


Fiche conducteur 


Mumêro de permis : OO1254 
Mom: LAOUBIrênom. : ADEL 
Uate de nalssance :  OF/031983 
SERN.: N 


Adresse : RUE DE SOMMAN 


Type de permis : ligê 


directeur 


هناك عدة خيارات يمكن تطبيقها على ورقة الطباعة كرسم الجداول وا,ضافة دوال الحساب و الصور ....الخ 
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هذه الوجهة مميزرة بصوره E‏ ا تذات ن Na‏ 


برامج التسيير : غالبا ما يلزم الطالب أثناء ICE‏ 
تكون هذه المذكرة مصحوبة وجوبا بتطبيق ميداني للمذكرة مثل ما هو معروف في ميدان 

الإعلام الألي على سبيل المثال ..لكن عند تطرق المقبل على التخر ج إلى آلية تصميم البرنامج 
N hp PPT PE e Pig IESE FTES‏ 
عليه صیاغتها من اجل اعطاء طبعة الصرامة والفعالية للبرنامج وهنا انا لا أتحدث عن التلوين 

2 
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EEE 5‏ 
أو الجانب ألزخرفي بقدر الجاني التقني أي سلاسة العمل وسهولة استخدام البرنامج بالإضافة 
إلى فعالية البرنامج: 


: ويقصد نا بجمل اناع بده یا چک 
مستغل البرنامج بحاجة دائمة إليك . 


آلية العمل: هناك عدة طرق لتدعيم البرنامج بها 


*الطريقة الأولى /استعمال التاريخ : ۵ 
ويتم هنا بمراقبة تاريخ النظام بتاريخ نهاية مدة حياة البرنامج إلف المثال التالي الذي م N‏ 
خلاله يتم توضيح الفكرة أكثر: 

1 قم بفتح مشروع جديد في دلفي5 
2 قم بإحضار المركبة "٥۲1‏ 1) من شريط المركبات صmإعاأكرو‏ 
3 قم بإحضار المركبة 11عطه!ا 
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laoubi adel 


heEqJIn 

label l.CapTtion:=datetosztr [date ; 

if lapþel1.caption='Û04f123f2U10' then 
bhefInNn 
ahoumEazazaqge | ' application terminer 'j; 
klose; 


N 
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e o Ce 5 
في حالة مساواة‎ f SSS e 5 
ec a os 


laoubi adel . |٥ × 


AAU 


laoubi_adel | × 


application terminer 


تاريخ جهاز الحاسب إلى تاريخ مستقبلي 


#الطريقة الثانية باستعمال قواعد البيانات : 
وهي طريقة فعالة بنظري وهي أكثر فعالية ومصداقية من-الطريقة الأولى 


1 إنشاء قاعدة بيانات في module de base de données‏ 
2 قاعدة البيانات تكون باسم عیهط 
3 واسم الحقل الوحيد يكون تحت اسم كع)] 
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5 
4 قيمة الحقل تكون من نوع صحيح ١عgع)١1‏ 
إحضار المركبة 1ء1طه) ممن شريط المركبات ([48ءA۸ccé6‏ 


Hom de champ Type Taille Index‏ ا 
Test 1 l7 |‏ | 


يتم ربط المركبة 1ء[طم] بقاعدة البيانات الموافقةر على 
النحو التالى: 

ا الل ا ةر 

ثم يتم تحديد اسم الجدول المراد عرضه : 7 Î TableName [based‏ 


Database ari J" 
۳ 1 |+ 


بعد ذلك يتم تفعيل قاعدة البيانات بواسطة الخاصية ; عu٣). a1٥‏ 
1 في الحدث سهطء 0٥‏ للنافذة ٤٥۲۳1‏ انقر نقرا مزدوجا 
2 حرر الكود التالي : 
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begin | 
labell.caption:=inttoatr [tap lel.recordAcountl 2771 
tablEl. ln3Ert: FfF2 
LablElteE3STL.a2inteqErF:=TtaplEl.rEeEcOFACOUNL? 773 
tablel.po3t: 7rd 
If tableltest.aszinteqer 2=2l then 77% 
bheJINn 
tabþlEel.alctive:=false; 77ê 
zhouwmEzzafgeE |' appeEler a U?T3U0-S5-lUO3-UOS'? Fr 
forml.LlIoD3E F738 
end; 


end ;: 


_ FT" T1 ا“ ا‎ "1 TT", 


2€ تسجبله فی قأعدة البيانات 


4/ حفظ التغييرات على قاعد3 البكانات 
65 عملية مراقبة تحقق الشرط فل تكخيانات علة 
6 ايقاف تفعيل قاعدة البيانات 

- في حالة تحقق الشرط أي أن قاعدة البياتاك تحتوي»على 20 
7 يعرض لك رسالة يجب الاتصال بالمبرمل 


8 غلق التطبيق... 
+ |0| 
البرنامج في حالة التنفية ؛ ك 
المرة الأولى : 
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ıJ laoubi adel 


sı laoubi adel اتا‎ 


13 
المرة التاسعة عشر : 


المرة العشرون : 


laoubi_adel | × 


appeler a O730-88-03-08 
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ففى كل حالة تنفيد يتم إاضافة تسجيله جديدة 
لة بداية ونهاية التنفيذ: 
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5 کک ي 
- لنفرض انك قمت بتصميم برنامج تسییر مخز ونان وقمت ببيعه لأحد العملاء و بعد مده 
شهر وردك اتصال من العميل يفيدك أن البرنامج صار لا يعمل واستنجدك بالحل لان 


المبرمج التحضير لهذه المرحلة ويكون ذلك بتصميم برنامج أخر يقوم بتفعيل 
بدوں تعیير بیانات العملاء. 


هناك أ م جعل البرنامج يعود للعمل مرة أخرى ويكون ذلك ب : 


1 رتذكر بنية قأعدة الببانات 
القاعدة الأضلية تم إعادة تبذيلها ب 
ملاحظا ھا لر لم تتذکر ال 
إلى ضياع بياناقه اللأكلية 
2 تنصیب بر نامج moG base de données‏ 2 العميل f‏ يعاني من 
المشكلة وتقوم بفتح دته يانات ال-3 : / 

تعود حالتها إلى الصفر فتعطي عمرا جديد 
3 تصميم برنامج فرعي يفوم بعملية إرجاع قات 
حبث يعمل هذا الأخير بواسطةاالرقم التسلسلي الذي 
التسلسلي يتم إرجاع القيم إلى ر أيالعكس في حالة 


وله عن عدد مرات التنفيذ وإعادة تصميمها من جدید حسب 
ية في مكان تواجد ملف برنامج التسيير عند العميل 
المحدد تحدث لك هنا مشكلة كبيرة قد تعرض عمبلك 
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المركبات اللازمة للبرنامج : 

قاعدة البيانات الأصلية المسئولة عن عدد مرات التنفيذ 

edit1.text ۀ‎ 

اقبة تحت تسمية عاءع)] 

) ملاحظة _(قمت باستعمال المركبة مكان الحلقات التكرارية لان المركبة 
نفس عمل الحلقات التكرارية من ناحية المبدأ حيث تقوم بتنفيذ الأوامر حسب 


النبضة كما مكف التحكم في سر عة التنفيذ بتغيير قيمة المجال اج۷إع)م] من مفتش 
الكائنات ( 8 
اليك ألهندسة التالية 


انقر نقرا مزدوجا على المركبة ١٥))اط‏ وحرر الكود الثالى : 


heEqJINn 
Il EAIt1l.teExXt=' laoub1 adel U?3U-338-U3-UG' then F7] 
heEJIN 


timerl.EnableEA:=tEUPE} #2 
Fn ; 
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1 مر كود أو الرقم السري للبرنامج من اجل القيام بعملية التفعيل 
2/ في حالةرالتو افق يتم تفعيل الخاصية 4ع[طهمء للمركبة إعمصا) من اجل بداية 
التحديث چ 


1 % 
الان نصل إلى الجزء والمهم 
- قم بالنقر على المركبه وحرر الكود التالي : 


A 


tableEl.qdelete; 1 

tablel.Hext? Ff2 

if tablel,recordcount=1] then 7/73 

hejin 

timerl.enabled:=falseE ; #fd 

meEzzagğeEdlgl'mize a jour terminê' ,mtinformation, [mbyez],Ul; #73 
timerl,enabled:=falseE;  F#Fê 


end; 
FT 
\ / 
9 ا‎ 
N عملية حذف التسجيلة الأولى‎ 1 


2 الانتقال إلى التسجيلة الثانية 
3 عملية المراقبة من اجل بقاء على الأقل تسجيله واحدة ای أنه قاعدة البيانات ¢3 


تحتوي على الأكثر تسجيله واحدة فقط ۵ 
4///إيقاف عملية المركبة 1إعص1) N‏ 
5// إاظهار رسالة تو ضیح بين انه تم تحديث قاعدة البيانات 

6 إيقاف عملية المركبة 1إع1) 
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laoubi adel ٠ 


enkrer le code [laoubi_adel_0790-88-03-08 
| fezle 


x 
° 3“ mise a jour berrminê 


0 E 
۰ تصميم فيروس بدلفي‎ 


تعريف الفيروس: هو عبارة عن مجمو عة من الأوامر مكتوبة ؟ 
تخريب والتحكم في النظام ۵ 
يسمح لك دلفي بتطبيق جملة كبيرة من الأوامر”تساعدك على التحكافي النظام 
التحكم في الفأرة: 

عادة ما يقوم المبرمج بتصميم عدة وسائط تساعد مستخدم الكمبيوتر من ال 
بسهولة تامة .كما توجد نظرة أخرى وهو استعمال عدة أوامر م اجل تخريب 
وتعهیده 


0 0 
0 0 


تصميم برنامج يسمح لك بالتحكم في قلب عمل أزرار الفأرة 0“ 
خطة العمل 

و 

قم بإاضافة المركبتين: button1 but)0¬2‏ 

قم بتسمية المركبتين على التوالي ڊ:gauche click droite /click‏ 
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5 
قم بتحرير الأمر التالي بعد النقر المزدوج في المركبة 1٥ااuط‏ 


hejin 
ayatemparameEterzlinfo [3P1 saetmouszebhuttonavap, U,nil, lU) ; 
end; 


» 


XX 
طuں))ہہ2 قم بتگریں الأمر التالي بعد النة المزدوج في المرکبة‎ 
فکر 5: اتک المركبة إعص1 مز السابق بعد النقر المزدوج عليها‎ 
00 قم بتغييرر مجال المركبة من‎ 
لاحظ تم طور» الفكرة‎ 


2 
برمجة قواعد البيانات dQ‏ 


تنويه : يعد جانب برمجة قواعدرالبيانات من أهم .ال 
کان صعب جمیع المیادین و۔ ماهو معروف 
جدا لبدائية الفهرسة وعمليات التحين , ومع تطو 
ودراسة الوثائق بطرق علمية مبرطجةافي/قواعد البياناتي(ا. 
تسيير مصلحة الموظفيڻ الهدف من البرة 


المعلوماتية المتاحة والمعمول بها فى 
ت البيانات تدون في سجلات كبيرة 
جيا برزت أنظمة تألية البيانات 


ول الان تصميم برنامج 


تصميم قاعدة البيانات : 


NE m,date®n,ieu_n,classe,profess1on) ; 


شرح البيانات 


الحقل ____ الدلالة ___ ملاحظات 
2 
7 


هام القفنم ا 
profession‏ الصقة ___ | 
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5 


قا بيانات الخاصة بكلمة السر „j SE(Pass)‏ 


لدلالة] _ملاحظات 


I 
SS TIPTI a 


بنية قاعدة 0 


Delphi ب‎ صاlخll‎ module de base de سنستعمل برنامج‎ 


لاب من إنشاء \NOWlias‏ 
ليكن اسم ال وج1إا۸ هرااعكة |١‏ 


1 
2 
3 حفظ قاغدة البيانات فی 148 
4 اسم قاعدة البيانات”هر 1عءوط | 


خطوات البرمجة : 

le de base de he نفذ برنامج‎ 1 

2 قم بإنشاء هاه من خلاك"النقر على القائمة ءآ 

3 اختر الأمر التالي gestionnaire d’ alias‏ 
انقر على الزر ع۸01۷ 

5 حرر اسم ال یجAli‏ 

6 النقر على J‏ الموافقة × 


#" lodule Base de Jo 
Fichier Edition انات‎ ` 


esktionnaire d'alia=... 


UtiiEaIrES 
Mots dE passe,,, 


Gestionnaire d"alias 


base : ||‏ دا ع دذاات 
Type de pilote : [STAN DARD >|‏ 
Lhemin d'accëz : [E:*Pragranm Files oclal f Afficher seulement les alias publics‏ 


f” Afficher seulement les alias du projet 


fr Afficher tous les alias 


Parcourr... 


Retirer 


Enregistrer SOUS... a= 85 


MHouyeal 
| T= 
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سنقوم بتصميمقاعد البيانات الخاصة ونقوم بحفظها في ال وه:ا۸ التي تحت اسم 
1اaoub1_adeا‏ غل النحو التالي : 


شكل قاعدة البيانات 1عومط في البرنامج 


Crêation de la table Parado# fF : { S5ans Litre j × 


Descriptor des charnpz : Prapriêtês de la table : 
| Mom de champ Type Tallle [Index [Contrêles de Yalidilê <| 
1 Lode ب‎ 1 Efi... 
A) orm بم‎ 1 | 
3 Prênorm ب‎ 23 TI 1. Champ obligatoire 
4 Late_H U E E 
2 (Lieu 2 1 E ME E II 
Bb Llass لات م‎ | 
f Profession ۳ ل‎ A YAEL MAPITANT 
û Photo 3ا‎ 


A. WAlEUr par AERA 


Spêciflez le naornbre de caractères ã stocker dans le fichier .DB [dE Û ã i. MDIÊE 


24l]. Le reste des donnêes est stockê darz le Hchier .ME. ص ص‎ 
û SSSLANGE... 


Enregistrer SOUS... T= عا‎ 
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{ =ans EIEKPE J 


L_FFatıGon de la Kable Faraldlo#H Ff : 


FropriStîs= dz la tablz : 


| Mom da champ |I¥pa| Iaıllas |Inda=| [Lontrdles de waldıté >=[ 
1| Pass | | o | N 


ÛDcscriptioan Azz champs : 


1 1. Champ obligatoire 
2. Wala Lır mirirnLırn : 
4 2l ar ma=ırnl Irn ° 


n 


: اا1 par‏ ırاeuاد‏ "ك .4 


ÛOoauıbla-2liAlaE o Eapaz na touZhea pour placer ou ratirar l3 .ذ2‎ Laz 
rhampz Mle Eêx= qrrernlf ةêfre‎ lez premierz arz la Aie2rrphnr liez rharnp= 


meziskancem... | 
Ile... | LCor=gistrer SOUS... | دا‎ | Tal | 


ا 


mr IEEPFLCM CHE dcr la Eablrc Kon m 


mer | ET کا سے‎ CEI TF =5 


Ciara qistr=r Hmai¬s : 


Pu uu 1 lua uu :F amu bb د¬‎ 21 | E rrzqiztrmr 1 
DLiipm : Fou mı lı ıı: | rl] HFN Jlrer 1 


اط = Lo 1 Ham‏ 2 ا 
= ۍګ ۉ” ‏ | ll‏ 
:کے کے ° I Iain‏ 


A CGEGEMALOS: 
َل 21 اا رب ارق | اس‎ 


8 :|ا=ك تادا س 


آلية الحفظ لاحظ الشكل التالي : 


87 


To remove this message, purchase the 


E 0 N V E RT E ۳ P D F product at www.SolidDocuments.com 


This document was created using 


¢» 


O 
تعد إنشاء قواعد ا‎ 


زمة وحفظها سنقوم الأن بتصميم برنامج للقيام بعمليات التحيين 


2 قم بإنشاء نافدتين 

3 في النافذة التثانية قمربإضافة المر 
المركبات Ac6٤658[5‏ 

4 قم بإضافة المر كبتين_2ع٥]01ءع2)aل.1ع‏ 2 

5 قم بربط المركبة 1ع[طه) كاله ءة1اA‏ . 1ع 1 بواسطة الخاصية 


Data base names 
8 0 قم باختيار اسم قاعدة البيانات من خلال الخاصية عمصةم‎ 6 


7 قم بتفعيل المركبة 1ء1طم] من خلال الخاضية عں١)/€ر1)‏ 


- بعد القيام بعملية الربط المنطقية لقواعد البيانالان ت عا © 3` 
data source1‏ بالمركبة السابقة 1ع[طه) 
كرر نفس الخطوات السابقة مع المركبة 2عcإ0uءه)da‏ ; 2ع1طta‏ 


باختيار قاعدة البيانات O pass‏ 
لمزيد من التوضيح لاحظ الشكل التالي : x@O‏ 


1 انتح شیر علیدیدا فی دا 02 


2 e1اab)من‏ خلال شریط 


88 


SOLID CONVERTER PDF 


Ca33E 
dBASE Files 
DEBDEMUS 
Default U 
Ecel Files 
IBLocal 

laoubl_ adel E 
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E 
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Tableflame ٠ 
basel .db 


فة المركبة 1ع1هإ)رمء معهم من شريط المركبات 132س 
عد إضافة المركبة 


LL a e e eee ب ببب ببب‎ 


10 سنقوم بإضافة عدة صفحات على المراكبة 1ع 
قم باقر على الزر الألمن القائة على لر 
nouvelle Page‏ ستلاحظ ظهورر صفحة جديدة رک 


xt Nouvelle page | . لاحظ الشكل التالي‎ 


Page sUivankte 


Page prêcêdentE 


٣ aupprimer la page 


Alianer sur la qrillë 
ب‎ Mettre en avant-plan 
fe" Mettre en arriğre-planı 


EEYENÎT aû ETILE 


O E TY ry Alianert... OT 90 


NETS E I ٢ E ¬ اا‎ O TE a O 


: : . To remove this message, purchase the 
SOLID CONVERTER PDF > eo oie fhe 


ت بالتسمية التالي على التوالي من خلال الخاصية م0نامجء 
Page d’accue1ıl /Mısa ajJour / 1Imprımer/paramêtres‏ 


pT EPR 
ك‎ E E CoC 
: TabSheetl | TabSheet2 | TabSheet3 TabSheet4 | Es 
Tab5heet4: TTabsheet | SRS 


e 3 To remove this message, purchase the 
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11 قم بإضافة المركبة 41ع طمن شريط المركبات 4ط عإثإ)رc0‏ 
12 قم بتغيير الخاصية {عء ههل لنفس المركبة وربطها ب 1ععءإ0uء data‏ 


- تلاخظ برواز حقول قاعدة البيانات 1ءعءهط لكن تلاحظ أن الحقل 0٥1م‏ لم يظهر 


H7 FoF 


Page d'accueil Mise a [aur | Imprirmêr | pParamêkrez | aI 


REE REE EET EEE TEEN EE EEE EEE EET 
LB 


[araphiz] 


-لإضافة مركبة الصورة اتب اللفطهاات التالية ٠‏ 
1 انقر نقرا مزدوجا على المركبة 1ع[5م) 


Ajouter touts les champs 
تلاحظ ظهور جميع الحقول‎ 3 


4 قم بسحب الحقل 0ا0طم على الحيز 0u‏ زا is‏ 
لاحظ الأشكال التالية ٠‏ 


Formz.Table1 | 
î r~ 


ا 


Formz2.Table 1 = 
Formz2.T able 1 = 


E E HENS 


IIE UE 


Ajouter das champs... 
Moyea champ... 


LErl+3 
wErl+ 


Ajouter Eos les champs 


IBE ELIF 
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قم بإاضافۂ 6 مرکبات من ہہ)اںuط‏ 
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a ee a SS 
Faqe Jacceuell Mise a jour | imprimer | pararmêètres | 
_[Code [Nom [Fêm joan [lium E 
E E 
- E 

CEE‏ |ا* 


HOLIYEAL rmoadifier Enregistrer annuler 2 APpPprirmmer Phata REE 


actuallser REE 


01 اضافة تسجبله جدیدة ; Table1.insert‏ 


Table1 edit; © E 
Table1.post; 7 ene 


Table1.cancel; 
Table1 dele 
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5 
- قم بإاضافة البيانات حسب الجدول التالي 


Ef Table : base1,db 


Cole Late f 0r | Prerior | EEE | LIEU Profession 


UMS Laub adel To Iniorrmatlgue ain el hadjel contraleut 

2 AMIS hammadl alll 18 bIDlotIGUE Êjalê IE 

3 WANIN Small ahmed ngenleur Informally mata IMGENIEU 

4 AMI  bougrala  SedOlk mglstere Informatiu N to 

û MAA dm mohamed To Informatie uled radl controler 
% 


سنحاول إضافالزلية اليجفمعن المعطباا 
هناك عدة دوال تستعمل فلي البحث عن البياد 
البحث بالدالة yعfindk:‏ 


1 احضر المركبة {×ع) زم o‏ 
2 احضر المركبة button‏ قمربتغییر دلالتها إلى ع 3 
3 قم بتحرير الأمر التالي في المركبة رم))uط‏ 


SS 


iF HEYE Eable1il . FiniûREKey ( [eaûaiuE1l1 -TteEeErt] FJ Chen ر ا‎ 
E e {" Aon mêÊes HON TCFCOUTEES "FY 7; ر امي‎ 


چ 
1// البحث عن البيانات 
2 إظهار رسالة ...فيد بعدم بوجود البيانات @ 
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القيمة 1 
لمؤشر عند التسجيلة الأولى 


Kê 


` #HF Formz ا‎ 


Page Hf'arrııeil Mise a jour | irnpırirrıeer | pararnê rez | 


EE RNG LE E 


EET الد‎ UF" U3°1383 arı el Faljel 
Fauuauli lali 12037113983 اueإداد‎ 

armakti ahmed 1U" ZFTIFF maga 
bBouıqrara seEddik. TZ 1376 maddid 

Jiimi mohamed TUF UZA ouleûAc madi 


LE LA | modifier | Enregistrer | aim uler | supprimer | hoto 
acztuıaliser | 


| |code [mom _[Prénom [oan lim | 


FH 
lan shi 5 lee ae Fl hHaîjrzl 
hammadi ڪڪ ا‎ 

zmati 


bouarara crys rycen Lr 


diimi ledz madi 


HOLY EZALN | modifier | ENrEQistrEr | annular | 2 Hpprimer | Hhota 
E ac tuı2lizer | 


recherche 


This document was created using 
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إضافة خاصية أخرى للبرنامج ألا وهي الفهرسة 
د هنا توفير خاصية الترتيب ب الكود الاسم اللقب تاريخ الميلاد 


اتنا تصميم قاعدة البيانا 
اليك«المثال التالي وهو اقتبا 
انشاء فهارش فرعية لتسهيل 
آلية الاإنشاء 
بعد أن تتم عملية تصميمقاعدة البيانات 
ه قم بفتح القائمةر[طه)t ]6t1es de‏ 
قم باختيار الخيار التالت منها وهو ك index séêo‏ 
قم بالنقر على الزر إاéfل‏ | 
قم بتحديد الحقل المراداإنشاء فهرس فرعي 
انقر على الزر جه 
فتظهر لك علبة حوار تطالبكإإإدخال اسم الفهرس و 
انقر فوق الزر یه 
لابد أن يكون اسم الفهرس الفرعي يختلف عن اتيم الحقل aN‏ بإعطاء 


nom ÛJدب‎ xnom 


سبيل المثال الحقلل صإ0م 


XNO 


E. 


GO éFEFInICKiGON TH am irl sero nid ar 


LIJIpEIiDNS Az Fira 
آ‎ LDIr ain gia I Gif fEıaern se FAL "r uur 1ı 


EnreqgisEremrent de Finder 2 | 
Harm Andes : 


[x ¬crr] 
LT IT EIT ET 


To remove this message, purchase the 
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Aestructuration de la table Paradox 7: bae1.db ٠ 3 
Uescıı-lon des zhampz : Prop lêz ds la lablë 
1 Hom de charmıp Tep 3 Tale ل‎ | Contes & aid alıdilê 
n 1 2 ا‎ : 
A ori م‎ nde second aires 
3 Prên-m لاك م‎ Intégr 1 E TET 
4 Date de nzissanze . Daz: 
5 Infornatior 7 ر‎ . Yalu minimum : 


3, Yalu matmam : 


A, Yalu pa faul; 
SS 
: أعط الأسماء التالية للفهارس الفريعية على التوالي‎ 
® الاسم × / اللقب م× / تاريخ الميلاد.ول×‎ 


في التبويب 1 اضف لر كبة dbafd‏ 


2 نم قم بإاضافة 4 مرکبات من نو ع ہت))ںBu )R d10‏ من شر 4 


3 أعط التسميات التالية حسب الجدول التالي : 


En. 
المركبة ية لاحات وى‎ 
Ler parcode | Fadiobuuon! 


RadioBunon2 
1 Indexparprénom RadioButton 
| | Index par date de naissance | RadioButton4 


ملاحظة : من اجل الاطلاع على قيم الفهارس الفرعية اتبع الخطوات التالية : 
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چ 
1 حدد المركبة 1عإام1 

2 _ من خلال مفتش الكائنات حدد الخاصية Index field names‏ 

تج القائمة تلاحظ ظهور كل الفهارس الأساسية بدلالة الفهارس الفرعية 

<خظ عدم تتطابق الأسماء لان ها قيم الحقول التي تتخذ قيم الفهارس الفرعية 


Ilrde#FIielAH arn 


6 IndesFiles 
۰ IndesMame 
MasterFıelds 
Master DUCE 
@ اليك الشكل النهائى بعد الخطوات السار‎ 
07 
J Form2 - | E ا‎ 


laoubi El JF7U3713983 | alm el hadjel 

| harnrîadl larbi 1203113983 | be|ala 
arnalؤl‎ ahrned 10A magra 
bougrara seddik 1A21119Fb maddid 

. jiri moharned 100211982 | ouledc mall 


` inde» par code ` inde» par narî î” inde# par prênaî Û index par date de nalszafcEe 
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5 


قم بتحرير الاكواد التالية على التوالي بدءا من المركبة الأولى : 


betir 
TakKLeE1I . Index F le laAE 
ETI 7; 


begin 
table1l. IndexFieldNames:='prênom' ; 
end; 


begin 

table1l. IndexFieldNames:=' nom" ; 
emd ; 
begin 


table1l . IndexFieldNames:='date n"; 


end 7 
i: 


P3ag= d'ac2cueil | Misa a jour Mprimer | pararmökraz | 


vw 


مم ٣۾‏ »چ 


نفذ البرنامج وقم بتحديد الخيارات السابقة,فتلاحظ تغير د 


ل 
Pa‏ 


HF Forma 


Data 


laouıbi adعا UF7U3°1383 | ain el hadlel‏ #1 أ 
hamrmadlı larbı TEMS belas‏ ك ا | 

armatli ahmed IU"IZ"I3FFT  magqra‏ ك ا 

8 4 bouugrara sEdqik lZflI#13FB maddid 
8 jiu ial TU" UZ"T19SE uue adi 
ا‎ ap 

٩ ا‎ ۲ 
e inden par code ; f” inden par noarn fF” inden par prênmorn f” mde par date dc naissance 


@p Forma 1 E> 
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'=a= dM'accum=il | Mise = our IMprimar | pararmêtrms | 


Lodz Iam Prêrarm ÛOa2atz2_ Hm Liz Fı | ج‎ 
4 EEE slik. 


TAET IAF adil 


i : : To remove this message, purchase the 
This document was created using ك‎ O LI DD G6 mm NVE RTE 0 ا‎ | 


AF Forma‏ ا 


bougqrara seddık. TAI" 19FB maddid 
srmatki ahmed TU" TAIT” | maara 

djirmı moharned T1UUAF IISA | ouledc madi 
laoubi ade UFFU313983 | alin el had}el 
harnrîadîi larbi 1203713983 | be|ala 


f inde par cade f index par nam f” inde par prêrorî 
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Page d'accueil | Mise a jor _MPprimEr | pararmêlrez | 


: 3 8 5 To remove this message, purchase the 
This document was created using ك‎ O LI DD G6 oO NVE RTE i ا‎ | 


¢ 0 
ڳ 


ملاحظة :تلاحظ ان الو شر يبقی دائما في 


لأنها أخر قيمة تم البحث عنها 


ننتقل الأن إلى التبريب كإع)ع١aءaم‏ ™ 


سنحاول إضافة إمكانية تغيير كلمة مرور البرنامج 

قم بإاحضار مرکبة من نوع ل×0طامp‏ ںu٥إع‏ 

قم بإضافة مركبة من نوع )×ع) .)زلم ومر کبٔۂہ٥)اںuط‏ ومرک 
غير دڵlة enterenvotre mote de passe J| [abe11‏ 


أعط خاصية إخفاء كلمة السر بالرمز * من لال الا ية wordéhar‏ : 


غير دلالة المركبة ہہ)اںط ازى tester‏ 

قم بإحضار مرکبة أخری من نوع ×oطمpںuهاع N‏ 

أعطها خاصية عدم الظهور أثناء التنفيذ من خلال الخاصية 6.3؟1وf=:ع1ط1ء‏ 

سنقوم الأن بتفعيل حقول المركبة 2ع1[طه] الخاصة بمراقبة كلمة'المراور O‏ 

انقر مرة بالزر الأيمن للفارة على المركبة السابقة ۵ 
اختر Ûlخيlر N ajouter touts les champs‏ 
فيظهر لك الحقل الوحيد وئهم 

قم بإضافة الحقل ووهم على المركبة 0×2طامںuهإع‏ بواسطة عملية السحب 

تلاحظ ظهور الحقل 1٤1لعطل‏ ييهم مع الدلالة الخاصة به 

enterer nouvelle mote de passe ”١|İ pass ةلlٺلدلا قم بتغییر‎ 
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ل س 
قم بإضافة مرکبتین من نوع ۸٥)اںط‏ غیر دلالتیھما إلى إعenregis†r modifier‏ على 


rnoadifiar Enregistrer | 


على أي قيم 


معلوم أن المركبة 0×2طمںهع لا تظهر«آثتاء التنفيذ ۹3 ا أعطيناها خاصة الظهور 


AN aac O PO‏ كلمة المرور فارغ وعدم احتوائه 


من اجل عدم ظهور إمكانية تغيير كلمة المرواز إل بعد توافق ور 


9 
O 
vO 
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اق | حا | س _| - I‏ کي -. ي ) 3 AF Forma‏ 


teste | |] 


آلية مراقبة كلمة المرور : يقومالقستعمل ڊ 
المركبة 0×2طم ٠ع‏ من أجل القيامبعملية 
كلمة المرور 
ملاحظة كلمة المرور السابقة هي«عبارة عن فراع 
خطوات البرمجة : 
انقر على المركبة ذات الدلالة إع)ءع)وحرن _الكود#التالي 


ر السابقة في حالة التوافق تظهر 
: ر رسالة تحذیر تبین عدم تتطابق 


® ۵ 
pLeqin 
1f edit2.Texzt =dbheditl1.Tezt Then 7/71 
GFOUPBOKZ.vIis1ble:=true ر ر‎ 
else IE 
sahaowmessage (" ¥otre mote de passe est iIinvalide'" } 7 
end; 


نوضيح : N‏ 
1/ مراقبة توافق المركبتين ا{×ع).i)1لع‏ مع dbedit1.tex‏ 

2 في حالة التوافق تظهر لك المركبة 0×2طمuهإع‏ من اجل تغيير كلمة المرور 

3 في حالة عدم توافق محتوى المركبتين ا×ع.1٤1لع‏ و ×ع.1٤iلمط‏ تظهر لك رسالة 

توضح كلمة المرور خاطئة 
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إلى المركبة 0×2طمuه۲عوبرمجة‏ وسائطها 
كبة ذات الدلالة إعfiزلمص‏ وحرر الكود التالي : 


begin 
table2.edir:; 
end; 
¢ 
: انقر علی المركبة دا ا الكود التالي‎ 
« N 
begin 


tableZ. Post? 7/71 
qFOUPpbDOEKZ .VIs1ble:=false?; 7732 


توضیح: 


نفذ البرنامج 
وادخل القيمة 120 في حيز المراقبة 
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AF Forma 


PFaqe d'accueil | Mise a jour | imprimer Paramêtres | ١ 


» 


vw 


تلاحظ ظهور رسالة تنبيهربعدم توافق 
اعد تنفيذ البرنامج ولا تقوم بإضافة أي 
تلاحظ ظهور إمكانية تغيين كلمة_المرور 
غير كلمة المرور من فراغ إلى 7031983 N‏ 

عملية التغيير الا بالكلمة الجديدة إلاأوهى 07031983 
لاحظ الشكل التالي : 


HE Foam? 1ُ lanl sa eS 


E EGRET ELE 
racdifizr | 2rnrzgiztrer | 
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إمكانية مناداة برامج قاعدية في sوس0ل1,dس‏ 


ب نين من button‏ 
غير دلالة المركبتين الشتاتقتير إلى E‏ 4 على التوالي 


حرر الأمر التالي فى 


',aw_ ahow) 


icrosoft QOffice\Off1ce12: حيٽ‎ 
اسم البرانامج‎ Win word.exe 


اعد تحرير نفس الأمر في الهركبة الثانية لكن راسم البرنامج فقط لان برامج مجموعة 
ofc‏ لها نفس المسار 


begin 


winexec ('C:\ Program Files\Microsoft Office\Office12\excel], exe', sw show) 


end; 
% 


Q\ 
O7 1 


وفي الأخير اتمنى الاستفادة للجميع 


مع تحياتي الخالصة ترقبوا البقية عن قريب إن شاء الله تعالى... 
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